Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.08.04;
Скачать: CL | DM;

Вниз

Как перевести из String в Extended?   Найти похожие ветки 

 
LKJJed3   (2003-07-21 10:50) [0]

Есть такой код:
Procedure Tform1.Button1Click(sender:TOBject);
Var
ddd:string;
Result:Extended;
Begin
ddd:="0,6685446567475474";
result:=strtocurr(copy(ddd,1,10));
showmessage(currtostr(result));
end

Казалось бы,переменная result должна содержать 10 знаков после запятой,а содержит лишь 4 (т.е. у мення в программе нарушается точность)как это исправить?


 
Skier ©   (2003-07-21 10:52) [1]

StrToFloat(...)
FloatToStr(...)



Страницы: 1 вся ветка

Текущий архив: 2003.08.04;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.018 c
3-10095
LAMER Pro
2003-07-09 09:05
2003.08.04
Как часть транзакции сделать безоткатной?


3-10080
Slap
2003-07-11 19:33
2003.08.04
PDOXUSRS.LCK. Permissin dinied


11-10154
jfo
2002-11-30 14:35
2003.08.04
Хочется странного... или может что не то делаю...


1-10255
PrettyFly
2003-07-20 13:22
2003.08.04
Framы - диверсанты ;-)


1-10301
Zn
2003-07-21 14:27
2003.08.04
Мониторинг папки: помогите с алгоритмом.