| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Точка в числе при выводе в текстовый файл [D6, WinXP]
Andrew_P © (2005-01-19 18:06:00)Здравствуйте.
Подскажите мне как записать в текстовый файл числовое значение типа 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;
В итоге я получаю запятую.
Что я должен сделать?
Заранее благодарен.
DSKalugin (2005-01-19 18:41:00) [1]а Формат там и даром не нужен. Это же текстовый файл. Соотв там ВСЕ текст
Преобразуй FloatToStr() или FloatToStrF()
А потом замени запятую на точку если она там есть функцией AnsiReplaceStr()
Palladin (2005-01-19 18:07:00) [2]DecimalSeparator:='.'
| |
