Умножить и разделить числа

[Pavelok]

Привет всем!
Возник ворос как умножить число в edit1 на edit2 и вывести результат в edit3. И так-же с делением.

[program123]

вот:

procedure TForm1.Button1Click(Sender: TObject);
var
a,b:integer;
begin
     a:=StrToInt(Edit1.Text);
     b:=StrToInt(Edit2.Text);
     Edit3.Text:=IntToStr(a*b);
end;

[program123]

Можно так:

procedure TForm1.Button1Click(Sender: TObject);
begin
     Edit3.Text:=IntToStr(StrToInt(Edit1.Text)*StrToInt(Edit2.Text));
end;

[Pavelok]

Спасибо! а как разделить?

[program123]

А сделением вместо IntToStr и StrToInt пишите FloatToStr и StrToFloat, ну и знак соответственно )

[Pavelok]

А всё разобрался!там надо было FloatToStr