Запись лога в файл

[Ubher]

Каким образом можно записать лог в файл. Сам лог в журнале, составляется кликом по разуна все предметы в контейнере.
Если можно с небольшим примером.
Да, и возможно ли дописывать файл по ходу скрипта и не просто сохранить лог, а сохранить в нужном виде, например csv.

[yuras]

Каким образом можно записать лог в файл. Сам лог в журнале, составляется кликом по разуна все предметы в контейнере.
Если можно с небольшим примером.
Да, и возможно ли дописывать файл по ходу скрипта и не просто сохранить лог, а сохранить в нужном виде, например csv.

Если сохранять журнал - там кнопочка есть, если сообщения нужные в файл

Code: Select all

procedure WriteToFile(data: string); 
var 
file: TFileStream; 
begin 
try 
data:=FormatDateTime('dd.mm.yyyy hh:mm:ss > ', Now) + data+ #13#10;
file := TFileStream.Create('c:\1.txt',fmOpenReadWrite); 
file.seek(0, soFromEnd); 
except 
file := TFileStream.Create(LogFile,fmCreate); 
end; 
file.WriteBuffer(data,Length(data)); 
file.Free; 
end;