Скачать: CL | DM;

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

← →
Валера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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.008 c