Exception in Anwendung ohne Form

Thema durchsuchen

Ansicht

Themen-Optionen

Exception in Anwendung ohne Form

Ein Thema von blablab · begonnen am 20. Feb 2013 · letzter Beitrag vom 20. Feb 2013

Vorheriger Beitrag

Nächster Beitrag

DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.656 Beiträge

Delphi 12 Athens

AW: Exception in Anwendung ohne Form

20. Feb 2013, 08:53

Die Adresse? Das wäre mir neu, aber Du kannst mein Beispiel ja noch erweitern:

zusammenfalten · markieren

Delphi-Quellcode:

			program ExceptionTest;

uses

  SysUtils,

  Windows;

type

  EMyException = class(Exception);

begin

  try

    { TODO -oUser -cConsole Main : Code hier einfügen }

    raise EMyException.Create('Alles kaputt hier');

  except

    on E: Exception do

      MessageBox(0, PChar(Format('%s:%s%s', [E.ClassName, sLineBreak, E.Message])),

        nil, MB_OK or MB_ICONERROR);

  end;

end.

Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen