| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Запись в файл текстовых данных

appL ©   (2006-10-18 12:03:00) 

Пробую так.

var
 LogMessage: String;
begin
 case MessageType of
   lmtError: LogMessage := '[ERROR]';
   lmtWarning: LogMessage := '[WARNING]';
   lmtHint: LogMessage := '[HINT]';
   lmtInformation: LogMessage := '[INFO]';
 end;
 LogMessage := LogMessage + CRLF + '[TIME]' +FormatDateTime('dd.mm.yyyy hh:nn:ss.zzz', Now());
 LogMessage := LogMessage + CRLF + MessageText;
 LogMessage := LogMessage + CRLF + '[END]'+CRLF;
 SetFilePointer(FLogHandle, 0, nil, FILE_END);
 FileWrite(FLogHandle, LogMessage, Length(LogMessage));

однако, в файле записываются кракозябры. В чем проблема?

---

Dmitrij_K   (2006-10-18 12:27:00) [1]

 FileWrite(FLogHandle, LogMessage[1], Length(LogMessage));

---

Сергей М.   (2006-10-18 12:26:00) [2]

FileWrite(FLogHandle, PChar(LogMessage )^, Length(LogMessage));

---

MsGuns   (2006-10-18 12:19:00) [3]

Чем смотрим файл ?

---

Наверх