Morgen!

Ich will mit einer try...except.. eine Exception abfangen und diese ausgeben.

markieren

Delphi-Quellcode:

on e:Exception do
  Application.MessageBox('Es trat ein Fehler auf:'+#10#13+e.Message, 'Fehler', 16);

Leider bekomme ich vom Compiler einen Fehler:

markieren

Code:

[Fehler] uOwnSql.pas(113): Inkompatible Typen: 'String' und 'PAnsiChar'

Was mache ich falsch?

Zitat:

function MessageBox(const Text, Caption: PChar; Flags: Longint = MB_OK): Integer;

Sobald Du konkatenierst wird der Wert automatisch als String angesehen. Also besser so:

markieren

Delphi-Quellcode:

on e:Exception do
  Application.MessageBox(PChar('Es trat ein Fehler auf:'+sLineBreak+e.Message), 'Fehler', 16);

[edit] Übrigens ist der Zeilenumbruch unter Windows #13#10. Nimm doch besser die Konstante sLineBreak, dann musst Du Dir um die Reihenfolge keine Gedanken machen. [/edit]

markieren

Delphi-Quellcode:

on e:Exception do
  Application.MessageBox(PChar('Es trat ein Fehler auf:'+sLineBreak+e.Message), 'Fehler', 16);

Super, funktioniert! Danke für die schnellen Antworten!

Achja, und e.Message ist wohl auch ein String IIRC, von daher geht es sowieso nicht ohne Cast. Wozu eigentlich die 16 und nicht die dafür vorgesehene Konstante? Die würde den Code bedeutend lesbarer machen.