Thema: Delphi RaiseException abfangen

Einzelnen Beitrag anzeigen

Benutzerbild von Flocke
Flocke

Registriert seit: 9. Jun 2005
Ort: Unna
1.172 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#10

Re: RaiseException abfangen

  Alt 12. Aug 2005, 15:11
Ich hatte gerade noch zwei Zeilen mehr geschrieben, ansonsten ist's aber identisch:
Delphi-Quellcode:
program cmdLine;

{$APPTYPE CONSOLE}

uses
  SysUtils, Windows;

begin
  { TODO -oUser -cConsole Main : Hier Code einfügen }
  writeln('Hier sind wir!');
  try
    RaiseException($C0000003, 0, 0, nil);
  except
    writeln('Exception gefangen');
  end;
  writeln('Und hier sind wir auch');
  readln;
end.
Ergebnis mit IDE (nach Fehlermeldung und klicken auf "Fortfahren"):
Code:
Hier sind wir!
Exception gefangen
Und hier sind wir auch
Ergebnis ohne IDE (ohne jede Fehlermeldung):
Code:
Hier sind wir!
Exception gefangen
Und hier sind wir auch
Volker
Besucht meine Garage
Aktuell: RtfLabel 1.3d, PrintToFile 1.4
  Mit Zitat antworten Zitat