Wie Enters aus einem String entfernen?

[nahpets]

Dann mach es doch so:

Delphi-Quellcode:

except
    on E: Exception do
    begin
      lvStr := 'Fehler beim Verbinden mit der Datenbank!';
      EventLog.Error(Format('%s - %s - %s',[lvStr,E.ClassName E.Message]));
      EventLog.Info('- - - - - Anwendung geschlossen - - - - -');
      lvStr := lvStr + sLineBreak + sLineBreak + E.ClassName + sLineBreak + E.Message;
      MessageDlg(lvStr, mtError, [mbOk], 0);
      Application.Terminate;
    end;
  end;