Englische Dialoge mit deutschem Delphi

[Hansa]

Anstatt Quelltexte zu übersetzen, Pfade zu verbiegen etc. würde ich mir mal lieber überlegen, wie man wichtige Fehlermeldungen überhaupt behandelt. Die eigene Delphi Version ist ansonsten im Endeffekt eventuell nicht mehr zu gebrauchen. Man kann ja auch komplett eigene Fehlermeldungen anzeigen:

Delphi-Quellcode:

PROCEDURE TForm1.ExceptionDeutscheMeldung (Sender : Tobject;E : Exception);
BEGIN   // zumindest Sender und E können direkt ausgewertet werden
  MessageDLG (' Fehler    : ' + E.Message + #10#13 +
              ' Fehlertyp : ' + E.Classname + #10#13 +
              ' Sender    : ' + Sender.Classname + #10#13 +
              ' Sender Parent   : ' + Sender.ClassParent.ClassName,
              mtError,[mbOK],0);
END;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnException := ExceptionDeutscheMeldung;
end;

procedure TForm1.btn1Click(Sender: TObject);
var i : Integer;
    r : Real;
begin
  i := 0;
  r := r / i;
ShowMessage(FloatToStr(r));  // MUSS aufgerufen werden, sonst Effekt nicht zu sehen
end;

Da lässt sich natürlich noch stark verfeinern.