Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2012.01.01;
Скачать: CL | DM;

Вниз

Сохранение списка без символов перевода каретки   Найти похожие ветки 

 
dreamse ©   (2011-09-22 23:19) [0]

Добрый вечер.

Подскажите пожалуйста ответ на хитрый вопрос.

Пытаюсь сохранить текст (несколько строк)


var
 LogFile: Textfile;
begin
AssignFile(LogFile, LogFileName);
Append(LogFile);
Writeln(LogFile, LogMessage);
Closefile(LogFile);


где LogMessage пердается ему в виде Trim("dddd"); т.е обрезая лишние символы перевода строки и пр.

Но если открыть сохраненый файл в текстовом редакторе то курсор будет стоять на строку ниже ...

Если его путем нажатия BACKPACE перевести назад и сохранить то так текстовый файл сохраняется без перевода каретки.

Как все таки сохранить файл на диск чтобы не подставлялся автоматический перевод на новую строку ?


 
dreamse ©   (2011-09-22 23:20) [1]

При сохранении TStringList и из TMemo результат анологичный.


 
Омлет ©   (2011-09-22 23:25) [2]

Надо Write вместо Writeln.


 
dreamse ©   (2011-09-22 23:30) [3]

> Омлет ©   (22.09.11 23:25) [2]

спасибо ! Очень помогли, уже не первый час бьюсь. А оказалось так просто.


 
Dimka Maslov ©   (2011-09-25 12:02) [4]

Хорошая вещь - мануалы. В них много чего написано и практически в описании любой функции есть раздел "см. также/see also".



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

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

Наверх




Память: 0.47 MB
Время: 0.01 c
2-1316502373
i2e
2011-09-20 11:06
2012.01.01
ShortString - max 255 символов. А String?


15-1315859385
Юрий
2011-09-13 00:29
2012.01.01
С днем рождения ! 13 сентября 2011 вторник


15-1316118584
Юрий
2011-09-16 00:29
2012.01.01
С днем рождения ! 16 сентября 2011 пятница


1-1278075174
ifmomax
2010-07-02 16:52
2012.01.01
Windows-service.Некорректное чтение бинарного файла.


1-1278875240
dyonysos
2010-07-11 23:07
2012.01.01
MessageBox из TService