Форум: "Начинающим";
Текущий архив: 2010.01.17;
Скачать: [xml.tar.bz2];
ВнизУстановка точности вычисления данных Найти похожие ветки
← →
Валера19 (2009-11-20 11:27) [0]function StrToReal(s:string):real;
var
s1:string;
i:integer;
FormatSettings:TFormatSettings;
Begin
s1:="";
GetLocaleFormatSettings (GetThreadLocale, FormatSettings);
for i:=1 to length(s) do
if s[i] in ["0".."9"] then
s1:=s1+s[i]
else
if s[i] in [",",".","/","\"] then
s1:=s1+FormatSettings.DecimalSeparator;
if s1="" then s1:="0";
result:=strtofloatdef(s1,0,FormatSettings);
End;
var
r,r1,r2:Real
begin
r1:=StrToReal(Edit1.text);
r2:=StrToReal(Edit2.text);
r:=r1*r2;
Label1.Caption:=FloatToіtr(r);
end;
Нужно чтоб результат в Label1 отображался только с двумя знаками после запятой. Как это сделать?
← →
Валера19 (2009-11-20 11:29) [1](исправленный вариант)
var
r,r1,r2:Real;
begin
r1:=StrToReal(Edit1.text);
r2:=StrToReal(Edit2.text);
r:=r1*r2;
Label1.Caption:=FloatToStr(r);
end;
← →
brother © (2009-11-20 11:30) [2]> (исправленный вариант)
>
> var
> r,r1,r2:Real;
> begin
> r1:=StrToReal(Edit1.text);
> r2:=StrToReal(Edit2.text);
> r:=r1*r2;
> Label1.Caption:=FloatToStr(r);
> end;
О_о
> var
> r,r1,r2:Real
> begin
> r1:=StrToReal(Edit1.text);
> r2:=StrToReal(Edit2.text);
> r:=r1*r2;
> Label1.Caption:=FloatToіtr(r);
> end;
← →
Валера19 (2009-11-20 11:33) [3]>Brother. FloatToStr(r);
← →
brother © (2009-11-20 11:34) [4]> >Brother. FloatToStr(r);
даже и не заметил, пока не ткнули ;) - на автомате код читается)
← →
Валера19 (2009-11-20 11:37) [5]>Brother :) Знакомо..
← →
Юрий Зотов © (2009-11-20 11:41) [6]> Установка точности вычисления данных
> Нужно чтоб результат в Label1 отображался только с двумя знаками
> после запятой.
Это не установка точности вычисления, а установка точности отображения.
> Как это сделать?
Например, см. функцию Format
← →
Валера19 (2009-11-20 12:00) [7]>Юрий Зотов. Пробовал с format, чевойто не получаится :( Можно подсказку?
← →
brother © (2009-11-20 12:01) [8]> Пробовал с format, чевойто не получаится
показывай, чего не получается?
← →
Валера19 (2009-11-20 12:02) [9]>brother. Label1.Caption:=Format(FloatToStr(r),2);
← →
brother © (2009-11-20 12:11) [10]а ты справку читал?
Format("%8.2f", [123.456]).
← →
Валера19 (2009-11-20 12:43) [11]>brother. Англицкий хромает :( Как правильно надо?
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2010.01.17;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.009 c