일반적으로 Runtime 시에 error메세지가 뜨면 그 메세지를 Text파일로 저장하고 싶거든요!!!!
고수님들 좀 갈켜 주세요!!!
대충 제가 해보긴 해 봤는데 잘 안되는군요!! ^^;
///////////////////////////////////////////////////////////////
procedure TForm1.SaveErrormsg; // 에러메세지 save
var F: TextFile;
S,Errmsg,ErrorMessage : string;
Errno : Word;
begin
S := ErrorMessage;
AssignFile(F, 'C:BError'+ formatdatetime('mmdd-hhnn',now) +'.txt');
Rewrite(F);
writeln(F, S);
CloseFile(F);
end;
//////////////////////////////////////////////////////////////////////
에공 ~ 아무쪼록 아시는 분 이나 해 보신 분 저에게 좀 만 갈켜 주세요!!!
그럼 이만.......
OnException 이벤트를 오버로드(?) 해서 사용하시면 될듯하네요..
오버로드인지.. 오버로딩인지.. 헷갈리지만... 어쨋든..
폼 생성시에..
Application.OnException := FormExceptionHandler;
이렇게 해주시고요...
Procedure TForm.FormExceptionHandler(Sender : TObject ; E : Exception);
var ErrorMsg : String;
begin
ErrorMsg := E.Message;
// ErrorMsg를 파일로 저장하시는건 능력껏 하시면 될듯...
end;
아마도 이러면 발생하는 모든 에러메세지를 원하시는데로 처리하실수
있을듯합니다...
도움이 되었기를.....