Michael Vilhelmsen wrote:
> Hej
>
> I mit program (lavet i D5, ent) tager jeg selv hånd om nogle exceptions.
> Eller prøver på det...
>
> Men jeg har nogle problemer med at finde ud af, hvilken slags exception
> det er ...
>
> Jeg har lavet en procedure som:
>
> procedure TfrmMain.AppException(Sender: TObject; E: Exception);
> begin
> if (E is EIBError) then
> begin
> CallError2('UKENDT DATABASE FEJL !',E.Message,'','','','',(E as
> EIBError).SQLCode,(E as EIBError).IBErrorCode,(E as
> EIBError).HelpContext,TRUE,DMTIB.IBTransaction1);
> end
> else if (E is EAccessViolation) then
> begin
> Application.ShowException(E);
> Application.Terminate;
> end
> else
> begin
> Application.ShowException(E);
> end;
> end;
>
> Som jeg bruger i mit program.
> Men jeg har et par steder, hvor jeg har oplevet, at jeg på en SQL query
> har henvist til et felt, som ikke findes. F.eks.
>
> MinInteger := MyQuery.FieldByName('FELT').AsInteger
>
> Hvor FELT ikke findes .... Jeg ved ikke hvilken slags exception den
> udløser, men den kommer i hvert fald ind i ELSE delen i ovenstående
> procedure.
>
> Så jeg kunne da godt tænke mig, at mit program kunne skrive til mig,
> hvilken slags exception det er....
Prøv i den sidste else at tilføje
Application.ShowMessage(E.ClassName);
--
| Christian Iversen | For years they would say "throw another |
| chrivers@iversen-net.dk | log on the Jeff" |