Einzelnen Beitrag anzeigen

AlexII

Registriert seit: 28. Apr 2008
1.717 Beiträge
 
FreePascal / Lazarus
 
#1

Wie Enters aus einem String entfernen?

  Alt 28. Nov 2015, 15:25
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;
Bin Hobbyprogrammierer! Meine Fragen beziehen sich meistens auf Lazarus!
  Mit Zitat antworten Zitat