15.07.2008, 15:54
|
|
Познающий
Регистрация: 30.04.2007
Сообщений: 77
Провел на форуме:
393625
Репутация:
50
|
|
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 под рукой нет.
|
|
|