Форум: "Начинающим";
Текущий архив: 2006.11.05;
Скачать: [xml.tar.bz2];

Вниз

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

← →
appL   (2006-10-18 12:03) [0]

Пробую так.

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));

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

---

← →
MsGuns ©   (2006-10-18 12:19) [1]

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

---

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

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

---

← →
Dmitrij_K   (2006-10-18 12:27) [3]

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

---

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

Форум: "Начинающим";
Текущий архив: 2006.11.05;
Скачать: [xml.tar.bz2];

Наверх

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