While

[Rodrigo Miss 1]

Boa tarde! beleza?

 

To usando o bloco abaixo pra fazer um esquema assim:

Tm o valor total q é 100,00 o cara informa um edit o digamos 70,00 em dinheiro e clika em ok pra salvar.. entao ainda falta 30,00 pra fexar os 100,00 entao deveria aparecer no edit := 30,00 e deixar q o cara informe a nova forma de pagamento para os 30,00 restante... e assim sucessivamente...

pode ser q o cara pague esses 100,00 e tres formas diferentes....

procedure TForm1.Button1Click(Sender: TObject);varInformado, Valor: Double;beginValor:= 100;Informado:= StrToFloat(Edit1.Text);While Informado < Valor do	begin	Informado:= Informado + StrToFloat(Edit1.Text);	Edit1.Text:= FloatToStr(Valor - Informado);	end;end;

Dessa forma acima naum ta dando certo. Alguem poderia me ajudar

[bdexterholland 0]

Botão Adicionar Parcela:

listbox1.itens.add(edit1.text);

 

Botão Confirmar Forma de Pagamento:

total:=0;valor_real:=<valor do produto>:for i:=0 to listbox.itens.count do   begin	   total:=total+strtofloat(listbox.itens.strin[i]);   end;IF valor_total<>total then   showmessage ('Verifique suas parcelas....');

[marcio.theis 3]

Da forma que você relatou acho que uma simples conferência no momento de pagar já seria possível, onde que você subtraí o valor da parcela pelo valor que esta sendo pago, caso tenha valor resultante mostra em um Edit e pede para informar a nova data de vencimento, forma de pagamento, etc... da parcela, sendo que não vejo necessidade do uso de while...