Edit com valores negativos...

Delphi

09/06/2004

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


Gollum

Gollum

Curtidas 0

Respostas

Fabio.hc

Fabio.hc

09/06/2004

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;



GOSTEI 0
POSTAR