ReadLn +Double

← →
нико-лай (2007-09-11 14:08) [0]

Как из текстового файла прочитать из строки значение Double, если оно в файл записано, так:
10.2410 10,2410 dbl: Double; ReadLn(TextFile, dbl);
Тут что-то зависит от системного разделителя? Вообщем какое сделать универсальное решение, что-бы считать оба этих варианта 10.2410 10,2410 как double?

← →
Virgo_Style © (2007-09-11 14:10) [1]

читать как строку и переводить в double

← →
{RASkov} © (2007-09-11 14:15) [2]

if DecimalSeparator = "," then
StringReplace(dbl, ".", DecimalSeparator, [])
else
StringReplace(dbl, ",", DecimalSeparator, []);
d:=StrToFloatDef(dbl, 0);

← →
{RASkov} © (2007-09-11 14:15) [3]

> dbl: Double;

dbl: String;
d: Double;

Загрузи в TtringList и потом двумя командами измени запятую и точку на десятичный разделитель, примено как в [2]

ReadLn +Double Найти похожие ветки