Korzystam z kodu zaczerpniętego z internetu do stworzenia pliku błędów programu. Ponieważ program składa się z kilku form i chciałbym aby w przypadku pojawienia się błędu w pliku logu dopisywana była forma z której powstał błąd. Co bym musiał dopisać do poniższego kodu ?
procedure TForm1.ApplicationEvents1Exception(Sender: TObject;
E: Exception);
var
ErrorLogFileName : string;
ErrorFile : TextFile;
ErrorData : string;
begin
ErrorLogFileName := ChangeFileExt(Application.ExeName,'.log') ;
AssignFile(ErrorFile, ErrorLogFileName) ;
//either create an error log file, or append to an existing one
if FileExists(ErrorLogFileName) then
Append(ErrorFile)
else
Rewrite(ErrorFile) ;
try
//add the current date/time and the exception message to the log
ErrorData := Format('%s : %s',[DateTimeToStr(Now),E.Message]) ;
WriteLn(ErrorFile,ErrorData) ;
finally
CloseFile(ErrorFile)
end;
//Show the exception
Application.ShowException(E);
end;