Работа с дробными числами в делфи

[Bicdibus]

итак есть текстовій файл в котором хранятся числа (1.5 1.2 і т. д.) єти чсла должні считіватся и с ними проводится математические операции при считываю я их в переменную типа стринг, потом преобразую в чсло функцией strtofloat temp:=strtofloat(znak); temp имеет тип real но прога говорит "1.3 is not floating value". в чем загвоздка? каким образом ещоможно преобразовать стринг в дробное число?

 

[Forza.Baron]

сначала надо поменять . на , для всех строк
цикл
begin
poz:=Pos('.',znak);
Delete(znak,poz,1);
Insert(',',znak,poz);
temp:=strtofloat(znak);
end;

 

[Bicdibus]

блин там что кома вместо точки должна бить, а я парюсь епт.

 

[Forza.Baron]

Если 1.3 is not floating value тогда 1,3 точно floating value

 

[Jozef]

Можно настроить

DecimalSeparator := '.';

или

DecimalSeparator := ',';

 

[Андрей Шпак]

только если менять, то не 5-ю строками, а AnsiReplace в StrUtils модуле есть

 

[p2rcoder]

temp := StrToFloat(StringReplace(znak, '.', DecimalSeparator, []));

Для надежности можно так:
s := StringReplace(znak, '.', DecimalSeparator, []);
s := StringReplace(s, ',', DecimalSeparator, []);
temp := StrToFloat(s);

если вдруг на какой-нибудь машине окажется наоборот, в файле запятые, а в локали точка

 

[ProxyTube]

StrToFloatDef - на случай ошибки конвертирования