F�rum While #332531

01/11/2006

Boa tarde! blz?

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....
CODE

procedure TForm1.Button1Click(Sender: TObject);
var
Informado, Valor: Double;
begin
Valor:= 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

Output

Curtir t�pico

+ 0

Responder

Posts

02/11/2006

Rjun

Voc� n�o pode guardar o valor do �Informado� dentro do m�todo. Essa variavel deve ser declarada fora desse m�todo. Eu n�o sei bem o que voc� esta fazendo, mas esse while � desnecess�rio.

Responder

Gostei + 0