Einzelnen Beitrag anzeigen

Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.542 Beiträge
 
Delphi 11 Alexandria
 
#2

AW: Exception abfangen und ausgeben funktioniert nicht

  Alt 3. Nov 2011, 07:24
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:
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]
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
  Mit Zitat antworten Zitat