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

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

Добавление в файл из TStringList [D6, WinXP]

Jaxtor ©   (2003-02-06 10:57:00) 

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

---

Jaxtor   (2003-02-06 11:02:00) [1]

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

---

Danilka   (2003-02-06 11:02:00) [2]

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

---

Reindeer Moss Eater   (2003-02-06 11:00:00) [3]

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

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.

---

Наверх