Хочу множить, а для этого нужен тип float, по сути, переменная one это integer, я ее превращаю в str, а str в float, но выдает ошибку

[BoNaPaRtD]

procedure TForm1.Button1Click(Sender: TObject);
var one:integer;
var two:integer;
var otv:integer;
begin

      one:=IntToStr(StrToFloat(Edit1.Text));
      two:=IntToStr(StrToFloat(Edit2.Text));
      otv:=one*two;
      Edit3.Text:=FloatToStr(otv);
end;

end.

Хочу, что бы можно было множить, а для этого нужен тип float, по сути, переменная one это инт, я ее превращаю в str, а str в float, но выдает ошибку

[dcc32 Error] Unit1.pas(35): E2250 There is no overloaded version of 'IntToStr' that can be called with these arguments
[dcc32 Error] Unit1.pas(36): E2250 There is no overloaded version of 'IntToStr' that can be called with these arguments
[dcc32 Fatal Error] Project1.dpr(5): F2063 Could not compile used unit 'Unit1.pas'
Failed
Elapsed time: 00:00:00.2

[p51x]

Вы что-то не то делаете или пишите.

one:=IntToStr(StrToFloat(Edit1.Text ));

Тут вы "превращаете" Edit1.Text (строку) в float и сразу опять в строку.

Для умножения float не обязателен.

[BoNaPaRtD]

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

Тут вы "превращаете" Edit1.Text (строку) в float и сразу опять в строку.

Для умножения float не обязателен.

one:=StrToFloat(Edit1.Text);

Так? Но так все равно не работает и выдает ошибку, но уже другую
[dcc32 Error] Unit1.pas(35): E2010 Incompatible types: 'Integer' and 'Extended'

[p51x]

Ну так у вас

var one:integer;

[newerow1989]

procedure TForm1.Button1Click(Sender: TObject);
var one,two,otv:real;
begin
      one:=StrToFloat(Edit1.Text);
      two:=StrToFloat(Edit2.Text);
      otv:=one*two;
      Edit3.Text:=FloatToStr(otv);
end;

[BoNaPaRtD]

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

procedure TForm1.Button1Click(Sender: TObject);
var one,two,otv:real;
begin
      one:=StrToFloat(Edit1.Text);
      two:=StrToFloat(Edit2.Text);
      otv:=one*two;
      Edit3.Text:=FloatToStr(otv);
end;

Да, спасибо большое, это было сложно, сейчас еще подумал и наконец понял суть.

[newerow1989]

[Alex11223]

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

наконец понял суть

И в чем суть?

[p51x]

А так же сложность?..

[Дmmm]

Ошибка-то была совсем не в этом.
Никто, похоже, не обратил внимание, что написано one:=IntToStr, когда надо StrToInt. А умножать потом можно и integer