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

Вниз

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;

---

← →
Anatoly Podgoretsky ©   (2007-09-11 15:50) [4]

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

---

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

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

Наверх

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