задать число через TEdit

[)Игнат(]

Люди добры! подскажите как сделать так, чтоб TLabel.Caption:=x1*x2*x3;
где х1 х2 х3 - заданное тобой число(через TEdit)?
просто у меня выдает ошибку
Incompatible types: 'String' and 'Extended'
заранее спасибо...

[Virtson]

Uses SysUtils;
...
Label1.Caption:= Floattostr(strtoFloatdef(x1, 0)*strtoFloatdef(x2, 0)*strtoFloatdef(x3, 0));

[)Игнат(]

Спасибо большое, но не работает : There is no overloaded version of 'StrToFloatDef' that can be called with these arguments

[Veiron]

На сколько понял я вам нужно это...
Label1.Caption:= IntToStr(1*2*3);
или если с TEdit то...
Label1.Caption:= IntToStr(StrToInt(Edit1.Text)*StrTo Int(Edit2.Text)*StrToInt(Edit3.Text ));

[Карась]

Сообщение от )Игнат(

Люди добры! подскажите как сделать так, чтоб TLabel.Caption:=x1*x2*x3;
где х1 х2 х3 - заданное тобой число(через TEdit)?
просто у меня выдает ошибку
Incompatible types: 'String' and 'Extended'
заранее спасибо...

Tlabel, TEdit ...... буква T в начале неспроста....

[Bill Gates]

var
  x1, x2, x3:real;
  y:real;
begin
  x1:=StrToFloat(Edit1.text);
  x2:=StrToFloat(Edit2.text);
  x3:=StrToFloat(Edit3.text);
  y:=x1*x2*x3;
  Label1.Caption:=FloatToStr(y);
end;

Вот и все. В переменной Y умножаем все значения переменных x1 x2 x3 и выводим их на экран с помощью TLabel;

[Virtson]

и что скажет ваш вариант, когда Edit1.text = 'пять' ?

[Квэнди]

Сообщение от )Игнат(

Спасибо большое, но не работает : There is no overloaded version of 'StrToFloatDef' that can be called with these arguments

А F1 нажать и посмотреть чтош за параметры нужны...

[Bill Gates]

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

и что скажет ваш вариант, когда Edit1.text = 'пять' ?

Пользователю нужно умножить ЧИСЛА а не СТРОКИ!!!

[Alex21]

Также разумно предусмотреть символ десятичного разделителя.
Перед операциями присваивания вызываем:

DecimalSeparator:='.'; // десятичный разделитель - точка

Теперь мы не зависим от системных настроек ОС.