Fórum Edit com valores negativos... #237076
09/06/2004
0
Gostaria de colocar valores negativos em meu edit e calcular com outro.
Ex:
edit 1 := -10
edit 2 := 12
Resultado 2;
assim que gostaria que ....
tentei varias procedimentos, e nada!
F:=strtofloat(´-´,Edit1.text);
function Ex(F:real):real;
begin
Edit1.text:=(´-´+F);
no evento create do formulario.
edit.text:=´-´;
mas tudo deu pau....
Ex:
edit 1 := -10
edit 2 := 12
Resultado 2;
assim que gostaria que ....
tentei varias procedimentos, e nada!
F:=strtofloat(´-´,Edit1.text);
function Ex(F:real):real;
begin
Edit1.text:=(´-´+F);
no evento create do formulario.
edit.text:=´-´;
mas tudo deu pau....
Gollum
Curtir tópico
+ 0
Responder
Posts
09/06/2004
Fabio.hc
edit 1 := -10
edit 2 := 12
Resultado 2;
Tente assim:
procedure TForm1.Button1Click(Sender: TObject); begin Edit3.Text:=FloatToStr( StrToFloat(Edit1.Text) + StrToFloat(Edit2.Text)); end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)