Delphi - Mysqlerror ausgeben?

[himitsu]

Es geht übrigens auch sowas

Delphi-Quellcode:

// in System.ExceptObject steckt die letzte/aktuelle Exception (also zufällig die von dem aktuellen Except-Block)
// und SysUtils.ShowException zeigt den normalen Exception-Dialog an
try
  ...
except
  ShowException(ExceptObject, ExceptAddr);
end;

Delphi-Quellcode:

// entspricht in etwa dem ShowMessage(E.Message);
try
  ...
except
  on E: Exception do
    ShowException(E, nil);
end;

Delphi-Quellcode:

// entspricht in etwa dem ShowMessage('Fehler: ' + E.Message);
try
  ...
except
  on E: Exception do begin
    E.Message := 'Fehler: ' + E.Message;
    ShowException(E, nil);
  end;
end;