Wie Enters aus einem String entfernen?

[AlexII]

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!

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;

[hoika]

Hallo,
StringReplace der LineBreaks mit Leerzeichen.


Heiko

[nahpets]

Wie wäre es denn mit:

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;

[AlexII]

Zitat von hoika:

Hallo,
StringReplace der LineBreaks mit Leerzeichen.
Heiko

Danke. Muss ich ma ausprobieren.

[AlexII]

@nahpets

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

[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;

[AlexII]

Stimmt, vielen Dank!