Деление edit'в

[Matters]

Народ как 1 edit разделить на 2 и записать в 3 edit?
Пишу:
var v1,v2:integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
if TryStrToInt(edit1.Text, v1) and TryStrToInt(edit2.Text, v2) then
edit3.text:=inttostr(strtoint(edit1 .text)/strtoint(edit2.text));

Он выдает ошибку

И плиз админы удалите другую тему я случайно там написал деление по английски.

[Juffin]

какая ошибка то?

[Showy]

Используйте FloatToStr и StrToFloat

[Neeter]

Вот, должно быть правильно:

procedure TForm6.Button5Click(Sender: TObject);
var 
 v1,v2: Double;
begin
 if TryStrToFloat(edit1.Text, v1) and TryStrToFloat(edit2.Text, v2) then
  edit3.text := floattostr(strtofloat(edit1.text) / strtofloat(edit2.text));
end;

[DM_bite]

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit3.Text:= FloatToStr((StrToFloat(Edit1.Text))/((StrToFLoat(Edit2.Text))));
end;

[Matters]

Сообщение от Neeter

Вот, должно быть правильно:

procedure TForm6.Button5Click(Sender: TObject);
var 
 v1,v2: Double;
begin
 if TryStrToFloat(edit1.Text, v1) and TryStrToFloat(edit2.Text, v2) then
  edit3.text := floattostr(strtofloat(edit1.text) / strtofloat(edit2.text));
end;

Все всем спс за помощь помогло

[Levsha100]

Или просто округлите функцией

round(x1/x2);

[Neeter]

просто округлите функцией

да, можно просто заменить / на div и все)

[Matters]

Сообщение от Neeter

да, можно просто заменить / на div и все)

не помогает (

[DM_bite]

не помогает (

Что не помогает? Конечно, если вы пытаетесь делить как целочисленные, предварительно не округлив их...