Создание лог-файла

[ScreN]

Здравствуйте.. Я уже видать всем тут надоел. Каждый день новая тема.

Ну помогите мне пожалуйста еще раз.

Мне нужно создать лог-файл. В настройках есть пункт Вести логфайл и если стоит галочка. То начинает вестись Лог-файл..

Написал код

/// Лог файл ///
Procedure TForm1.CreateLogFile;
Var
  F: TextFile;
  Text: String;
  TD: String;
begin
  AssignFile(F, extractfilepath(application.exename)+'Log\LogFile.log');
  Rewrite(F);
   WriteLn(F,'Текст лог-файла');
   CloseFile(F);
  end;

И собственно... хочу сделать что то типа вот этого лога

Версия программы: 1.0 Beta
[10.01.2009 6:23:50] HH.exe - приложение завершено.
[15.02.2009 6:23:50] HH.exe - приложение запущено

Что мне для этого нужно?
Заранее спасибо!

[mihali4]

Что мне для этого нужно?

В простейшем случае - по событию OnCreate главной формы записать
"HH.exe - приложение запущено", с указанием системного времени через Format,
а по событию OnClose:
"HH.exe - приложение завершено."

Ну, а "Версия программы: 1.0 Beta" пишите хоть перед каждой упомянутой строкой...
Хотя, на мой взгляд, достаточно один раз - при создании файла.

[ScreN]

Сделал не совсем как хотел. Но что то уже сделал.
Вот код:

/// Лог файл ///
Procedure TForm1.AddLogRun;
Var
 F: TextFile;
 Text: String;
begin
 AssignFile(F, extractfilepath(application.exename)+'Log\LogFile.log');
 if fileexists(extractfilepath(application.exename)+'Log\LogFile.log') then
   append(f) else Rewrite(F);
   WriteLn(F,'Версия программы 1.0 Beta');
  WriteLn(F,'Приложение ffff.exe, запущено успешно');
  CloseFile(F);
 end;

 Procedure TForm1.AddLogClose;
Var
 F: TextFile;
 Text: String;
begin
 AssignFile(F, extractfilepath(application.exename)+'Log\LogFile.log');
 if fileexists(extractfilepath(application.exename)+'Log\LogFile.log') then
   append(f) else Rewrite(F);
  WriteLn(F,'Приложение ffff.exe, завершено успешно');
  CloseFile(F);
 end;

И добавил в создания главной формы FormCreate

Form1.AddLogRun;

А в закрытие формы FormClose

Form1.AddLogClose;

Хотел конечно это. Но сделал неправильно. Помогите.
Сейчас попробую объяснить чего хочу добиться.

В настройках программы есть CheckButton называется "Вести лог-файлы"
И нужно так же проверять. Если галочка стоит, то вести логи. Если не стоит, то не вести. Проверку на это я конечно сделаю сам. Но вот как совместить в логи все эти сообщения в одну процедуру?
Я если честно понять ничего не могу. Что то понамутил.. А совместить все вместе не могу.

И как мне сделать запрет на Версия программы 1.0 Бета.. Чтобы вот это в лог записывалось всего один раз.. И при следующем добавлении в лог-файл записи.. Больше не дублировалось. ?

Прошу помочь. Мне осталось дописать совсем чуть чуть. Но сам осилить последние моменты не в состоянии.

И еще подскажите как правильно вставить дату перед (Приложение успешно запущено).
Спасибо!

[KORN]

пишется одна процедура

var
  log: tstrings; // голобальная переменная
//на FormCreate ты ее создаешь
procedure Tform1.Formcreate(sender: Tobject);
begin
Log:=tstringlist.create;
addlog('Версия программы 1.0 Beta');
addlog('Программа запущена');
end;

//на FormClose; ты ее сохраняешь и уничтожаешь
procedure Tform1.Formclose(sender: Tobject);
begin
Log.Savetofile(Filename);
Log.free;
end;

procedure AddLog(text: string);
begin
  if AddLogCheckBox.checked then
  begin
  log.add(timetostr(now)+' '+text);
  end;
end;

// и в любом месте программы ты просто вызываешь процедуру и все

[JamS007]

Я бы посоветовал так:
1. Создать глобальную переменную текстового типа.
2. Создать процедуру, которая бы добавляла переменную в файл лога.
3. В месте программы, где требуется записать данные, делаем так:
Записываем данные в переменную, например ( <Дата и время> - Application run.).
После чего вызываем процедуру записи.
Очищаем переменную.

[KORN]

а я что сделал по твоему7

[s.Creator]

var
  FileName: string = '';

Procedure TForm1.WriteLog(Line: string);
Var
 F: TextFile;
 Text: String;
begin
 if not Box.Checked then // проверим нужно ли писать
   exit;

 if FileName = '' then
   FileName := extractfilepath(application.exename)+'Log\LogFile.log';

 AssignFile(F, FileName);

 if fileexists(FileName) then
   append(f) 
 else 
 begin
   Rewrite(F);
   WriteLn(F,'Версия программы 1.0 Beta');
 end;

  WriteLn(F,DateTimeToStr(Now) + ': ' + Line);
  CloseFile(F);
 end;

Дальше там где надо пишем

WriteLog('Запущено или незапущено :) ');

[QunneD]

Вот как я делаю

function WriteLog(log : string; f : pchar):string;
var
  logs : TStringList;
begin
  logs := TStringList.Create;
  if (FileExists(Pchar(f))) then
  begin
    logs.LoadFromFile(Pchar(f));
    logs.Add(DateTimeToStr(now)+': '+log);
    logs.SaveToFile(f);
  end
  else
  begin
    logs.Add(DateTimeToStr(now)+': '+log);
    logs.SaveToFile(f);
  end;
  logs.Free;
end;

Потом где нужно добовляеш код

WriteLog('Успешно записал сообщение в лог.','logs.txt');

[Serge_Bliznykov]

QunneD, не обижайтесь, но код крайне неэффективен: вы же при записи каждой строки ПОЛНОСТЬЮ считываете Ваш Логфайл в память (да ещё при этом идёт разбор файла построчно).