[Resolvido] Edit

[Lívio Bruno 0]

Olá,

gostaria de somar números em duas edits e o resultado iria para terceira edit. Estou com um código mas ele não funciona. exemplo: na edit1 eu coloquei 2, na edit2 coloquei 3 o resultado foi edit1=4364112 edit2=1243048 e edit3=5607160. Será que alguem pode dar uma forcinha aê... é que sou novo em programação e preciso muito do auxilio de profissionais.

 

Obrigado.

 

procedure TForm1.Button1Click(Sender: TObject);

Var
a,b:integer;

begin

edit1.Text:=inttostr( a );
edit2.Text:=inttostr( b );

begin
edit3.text:=inttostr( a+b );
end; 

[Bandwidth 0]

Você deveria fazer assim:

procedure TForm1.Button1Click(Sender: TObject);
var
  a, b, c : Integer;
begin
  a := StrToInt(edit1.Text);
  b := StrToInt(edit2.Text);
  c := a + b;
  edit3.Text := IntToStr(c);
end;

A explicação das funções usadas:

 

StrToInt() //Converte uma String para um valor Inteiro
IntToStr() //Converte um valor Inteiro para String

Ta aí, é um exemplo simples, mas de fácil entendimento.

[Lívio Bruno 0]

É... deu certo, era isso mesmo. Muito obrigado pela dica!