안녕하세여..타락임다..^^
테이블 오픈, 수정, 삽입등 의 디비관련 예외를 모두 잡구 시퍼여...
근데, 예외 분류가 안되는군여...
가령, EIntError는
EDivByZero, ERangeError, EIntOverflow 예외 등으로 나눠지자나여..
근데.. EDataBaseError은 달랑 하나...ㅠㅠ
이것두. 테이블이 없다거나, 부적절한 필드명이라거나,
부적절한 값을 넣으려구 했다거나, 오픈안하구 Query 문 실행시키려구 했다거나..
식으로 나누어 졌으면 도움이 될텐데.....ㅠㅠ
어느 선까지 알수있는지 답변 바람다...ㅠㅠ
uses 가 부적절했나? ?_?
아시면 답변 바람다...
제가 시도했던 코드는... 아래와 같슴다...ㅠㅠ
uses
DB;
// 초기화 함수
procedure TMainForm.FormCreate(Sender: TObject);
begin
Application.OnException := MyExcept;
end;
// 나으 예외함수
procedure TMainForm.MyExcept(Sender: TObject; E: Exception);
begin
if E is EDatabaseError then
MessageDlg('Trapped exception', mtInformation, [mbOk], 0);
end;
왕초보 타락천사...^__________^
알아냈음다.. ^^
지가 게을러서 다른 사람들 시킬려구 이런건 아니구여...ㅠㅠ
찾다 못찼아서, 질문 올리구두 계속 찾았어여...ㅠㅠ
모든 할순 있는 모든 방법을 동원하는 성격이라서뤼...ㅠㅠ
지금 맡은 프로젝트 끝나구 시간줌 나면, 정리해서.. 팁모아에 올리겠음다..ㅠㅠ
감사함다...ㅠㅠ
왕초보 타락천사.. ^_________^
타락천사 wrote:
> 안녕하세여..타락임다..^^
>
> 테이블 오픈, 수정, 삽입등 의 디비관련 예외를 모두 잡구 시퍼여...
>
> 근데, 예외 분류가 안되는군여...
>
> 가령, EIntError는
>
> EDivByZero, ERangeError, EIntOverflow 예외 등으로 나눠지자나여..
>
> 근데.. EDataBaseError은 달랑 하나...ㅠㅠ
>
> 이것두. 테이블이 없다거나, 부적절한 필드명이라거나,
>
> 부적절한 값을 넣으려구 했다거나, 오픈안하구 Query 문 실행시키려구 했다거나..
>
> 식으로 나누어 졌으면 도움이 될텐데.....ㅠㅠ
>
> 어느 선까지 알수있는지 답변 바람다...ㅠㅠ
>
> uses 가 부적절했나? ?_?
>
> 아시면 답변 바람다...
>
> 제가 시도했던 코드는... 아래와 같슴다...ㅠㅠ
>
> uses
> DB;
>
> // 초기화 함수
> procedure TMainForm.FormCreate(Sender: TObject);
> begin
> Application.OnException := MyExcept;
> end;
>
> // 나으 예외함수
> procedure TMainForm.MyExcept(Sender: TObject; E: Exception);
> begin
> if E is EDatabaseError then
> MessageDlg('Trapped exception', mtInformation, [mbOk], 0);
> end;
>
> 왕초보 타락천사...^__________^