| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Установка точности вычисления данных

Валера19 ©   (2009-11-20 11:27:00) 

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 12:43:00) [1]

>brother. Англицкий хромает :( Как правильно надо?

---

brother   (2009-11-20 12:11:00) [2]

а ты справку читал?
Format('%8.2f', [123.456]).

---

Валера19   (2009-11-20 12:02:00) [3]

>brother. Label1.Caption:=Format(FloatToStr(r),2);

---

brother   (2009-11-20 12:01:00) [4]

> Пробовал с format, чевойто не получаится

показывай, чего не получается?

---

Валера19   (2009-11-20 12:00:00) [5]

>Юрий Зотов. Пробовал с format, чевойто не получаится :( Можно подсказку?

---

Юрий Зотов   (2009-11-20 11:41:00) [6]

> Установка точности вычисления данных
> Нужно чтоб результат в Label1 отображался только с двумя знаками
> после запятой.

Это не установка точности вычисления, а установка точности отображения.

> Как это сделать?

Например, см. функцию Format

---

Валера19   (2009-11-20 11:37:00) [7]

>Brother :) Знакомо..

---

brother   (2009-11-20 11:34:00) [8]

> >Brother. FloatToStr(r);

даже и не заметил, пока не ткнули ;) - на автомате код читается)

---

Валера19   (2009-11-20 11:33:00) [9]

>Brother. FloatToStr(r);

---

brother   (2009-11-20 11:30:00) [10]

> (исправленный вариант)
>
> 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:29:00) [11]

(исправленный вариант)

var
r,r1,r2:Real;
begin
r1:=StrToReal(Edit1.text);
r2:=StrToReal(Edit2.text);
r:=r1*r2;
Label1.Caption:=FloatToStr(r);
end;

---

Наверх