Добавление в файл из TStringList

← →
Jaxtor © (2003-02-06 10:57) [0]

Есть переменная FLog: TStringList.
Нужно добавлять содержимое этого списка в файл и перед этим
добавляя строки с текущей датой и разраничитель. Т.е. вести лог-файл. Подскажите идею как это можно сделать.

← →
Reindeer Moss Eater (2003-02-06 11:00) [1]

Не мучайся, а используй это:

unit LogUnit;

interface

procedure Log(const AMsg:string; const AParam:string = "");

implementation

uses SysUtils;

var LogName:string;

procedure Log(const AMsg : string; const AParam : string = "");
var F:Text;
begin
Assign(F,LogName);
try
if FileExists(LogName) then Append(F) else Rewrite(F);
Writeln(F,FormatDateTime("dd.mm.yyyy hh:mm:ss",Now),#9,AMsg,#9,AParam);
finally
Close(F);
end;
end;

initialization
LogName:=ChangeFileExt(ParamStr(0),".log");
end.

← →
Jaxtor © (2003-02-06 11:02) [2]

Reindeer Moss Eater, спасибо!!!!

проще всего в еще один TStringList загрузить данные из лог-файла, добавить строчки с датой и разделителем, добавить FLog, и записать в файл.

Добавление в файл из TStringList Найти похожие ветки