Fejl behandling?

Hej SkypeR,

Det er faktisk ret simpelt,
du skal dog køre programmet "udenfor Delphi", da debuggeren altid viser "Exceptions" som de kaldes.

Hvis du lavet et "ikke console" program (standard Win32 exe) program, vil du have et komponent Application (TApplication) defineret som du altid vil kunne bruge fra alle forms.

TApplication har en property OnException som bliver kørt når der forekommer en fejl. Denne kan du sætte til en anden procedure hvor du så selv kan definere hvad der skal ske.

{
  Add the .Message property from
    the raised exception to the ErrorMemo }
procedure TMainForm.HandleException(Sender: TObject; E: Exception);
begin
  ErrorMemo.Lines.Add(E.Message+'-'#13#10);
end;

{
  Create an Exception to test the application }
procedure TMainForm.ErrorBtnClick(Sender: TObject);
begin
  Raise Exception.Create('Error !');
end;

{
  Set the application to use the
    "HandleException" procedure to handle exceptions }

procedure TMainForm.EventBtnClick(Sender: TObject);
begin
  application.OnException := HandleException;
end;

Har lavet et lille eksempel du kan hente på http://peecee.dk/?id=31909

Håber du kan bruge det.

Tak skal du have Ken var lige det jeg skulle bruge Tak