Как перевести из 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(...)

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