طلب مساعدة في انشاء ملف لوغ

السلام عليكم

لأنشاء ملف اللوق هناك اكثر من طريقة .. ولكن سأضع لك الطريقة التي استخدم :

اولآ اضف بروسيجر لأنشاء ملف اللوق فايل :

procedure CreateLogfile;
var
  f:textfile;
  FN:string;
begin
  FN:=ChangeFileExt(Application.Exename,'.txt');
  AssignFile(F,FN);
  Rewrite(F);
  Append(F);
  WriteLn(F,'');
  WriteLn(F,'This Logfile was created on '+DateToStr(Date));
  WriteLn(F,'');
  CloseFile(F);
end;

ثم اضف البروسيجر التالي للكتابة في الملف :

procedure WriteToLog(aLogMessage:string);
var
  f:Text;
  FN:string;
begin
  FN:=ChangeFileExt(Application.Exename,'.txt');
  if (not FileExists(FN)) then
    begin
      CreateLogFile;
    end;
  AssignFile(F,FN);
  Append(F);
  WriteLn(F,DateTimeToStr(Now)+': '+aLogMessage);
  CloseFile(F)
end;

وللكتابة في الملف عند اي حدث في برنامجك فقط اضف :

WriteToLog('test');

وبالتوفيق