While

Delphi

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

Output

Curtidas 0

Respostas

Rjun

Rjun

01/11/2006

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.


GOSTEI 0
POSTAR