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

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

Ведение лога [D7, XP]

Страницы:   < 1 2 >

MZG ©   (2008-04-30 10:33:00) 

Как реализовать ведение лога?
Покажите примеры пожалуйста

---

MZG   (2008-04-30 10:40:00) [21]

Спасибо!!!!!

---

Ega23   (2008-04-30 10:38:00) [22]

procedure Log(const s : string);
var
 f : TextFile;
 fn : string;
begin
 fn := ChangeFileExt(Application.ExeName, '.log');
 AssignFile(f, fn);
 if not FileExists(fn) then Rewrite(f) else Append(f);
 try
   writeln(f, s);
 finally
    CloseFile(f);
 end;
end;

---

Страницы:   < 1 2 >

Наверх