15.07.2008, 17:20
|
|
Постоянный
Регистрация: 05.01.2007
Сообщений: 508
Провел на форуме:
2360904
Репутация:
1393
|
|
Сообщение от FIND_ERROR
Taktik
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
e:=StrToReal(Edit1.Text, 3);
p:=StrToReal(Edit2.Text, 3);
sum:=e+p;
Edit3.Text:=RealToStr(sum, 3);
end;
Вобщем, насколько я знаю, в функциях RealToStr и StrToReal есть два параметра:
1) переменная для преобразования
2) число знаков после запятой
p.s. код не проверял и возможно ошибаюсь писал на память Delphi под рукой нет.
увы ты ощибаешся, такой ф-ции - нету и не может быть. Для выполнения задачи ТС нужно использовать floattostr strtofloat ...
Добавлено
Такой ф-ций нету в стандартной Sysutils.dcu
Последний раз редактировалось z01b; 15.07.2008 в 17:44..
|
|
|