我要將程式的錯誤訊息 寫到log file作成紀錄檔 要如何做呢?

sginpt您好 您可以在main form的OnCreate建立一個全域的TStringList物件sl 然後在擺上TApplicationEvents 在ApplicationEvents1Exception事件裡 sl.Add(e.message); 在main form的OnClose事件裡 把sl.SaveToFile 並釋放sl物件

您好﹗    比如說是用Except On Error的方法來截取到錯誤訊息的﹐若要將此錯誤信息加入到Log File中﹐請試試如下的方法﹕

Var
  F1, F2 : TextFile;
  MyErrorMessage, Str : String;
begin
  Try
    MyDate := StrToDate(Edit1.Text);
  Except
    On MyError : Exception do
      ShowMessage('錯誤信息是﹕'  MyError.Message);
      MyErrorMessage := DateToStr(Date)   ' '   MyError.Message;
      if Not FileExists('D:\Log.txt') then
        begin
          FileCreate('D:\Log.txt');
        end;
      AssignFile(F1, MyErrorMessage);
      Reset(F1);
      AssignFile(F2, 'D:\Log.txt');
      Append(F2);
      While Not Eof(F1) do
        begin
          ReadLn(F1, Str);
          WriteLn(F2, Str);
        end;
      Flush(F2);
      CloseFile(F1);
      CloseFile(F2);
      ShowMessage('已經產生新的Log.txt檔案');
  end;
end;

因未測試﹐僅供您參考﹗ ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟