Hallo,

ich habe folgenden Code. Die MessageDlg zeigt die Fehlermeldung mit sLineBreak an, ist auch gut so, wegen der Übersichtlichkeit. Das Problem ist aber, dass auch in die Logdatei die sLineBreaks geschrieben werden, wo es dann unübersichtlich wird. Wie kann man in der "EventLog.Error(lvStr);" die sLineBreak filtern? Danke!

zusammenfalten · markieren

Delphi-Quellcode:

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

Hallo,
StringReplace der LineBreaks mit Leerzeichen.


Heiko

Wie wäre es denn mit:

zusammenfalten · markieren

Delphi-Quellcode:

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

Zitat von hoika:

Hallo,
StringReplace der LineBreaks mit Leerzeichen.
Heiko

Danke. Muss ich ma ausprobieren.

@nahpets

Gute Idee, aber ich möchte nicht den String zwei mal schreiben.

Dann mach es doch so:

zusammenfalten · markieren

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;

Stimmt, vielen Dank!