Скачать: CL | DM;

Добавление в файл из 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, спасибо!!!!

---

← →
Danilka ©   (2003-02-06 11:02) [3]

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.02 c