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


Gollum

Gollum

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

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar