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

← →
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:="."

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

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