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

Вниз

Точка в числе при выводе в текстовый файл   Найти похожие ветки 

← →
Andrew_P ©   (2005-01-19 18:06) [0]

Здравствуйте.
Подскажите мне как записать в текстовый файл числовое значение типа real с точкой, а не с запятой. Я делаю так:


var f : textfile;

procedure TKSFExport.Line(const x1, y1, x2, y2: real; const style: byte);
begin
 Inc(FCountLine);
 WriteLn(f,"line");
 WriteLn(f,Format("%.4f",[x1]));
 WriteLn(f,Format("%.4f",[y1]));
 WriteLn(f,Format("%.4f",[x2]));
 WriteLn(f,Format("%.4f",[y2]));
 WriteLn(f,Format("%d",[style]));
end;


В итоге я получаю запятую.
Что я должен сделать?
Заранее благодарен.

---

← →
Palladin ©   (2005-01-19 18:07) [1]

DecimalSeparator:="."

---

← →
DSKalugin ©   (2005-01-19 18:41) [2]

а Формат там и даром не нужен. Это же текстовый файл. Соотв там ВСЕ текст
Преобразуй FloatToStr() или FloatToStrF()
А потом замени запятую на точку если она там есть функцией AnsiReplaceStr()

---

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

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

Наверх

Память: 0.44 MB
Время: 0.031 c