Einzelnen Beitrag anzeigen

Benutzerbild von Moombas
Moombas

Registriert seit: 22. Mär 2017
Ort: bei Flensburg
525 Beiträge
 
FreePascal / Lazarus
 
#1

Delphi Textdatei lesen/schreiben Phänomen

  Alt 11. Apr 2018, 10:29
Delphi-Version: 5
Moin zusammen, ich schreibe eine Logdatei (.txt) und öffne sie danach im Programm in einer Stringlist.

Code:
//Log schreiben
    assignfile(logf, ExtractFilePath(ParamStr(0)) + '\Log.txt');
    reset(logf);
    append(logf);
    writeln(logf,DateToStr(Now) + ' - '
               + TimeToStr(Now) + ' - '
               + GetCurrentUserName + '- '
               + ExcelE.Text + ' - gespeichert');
    closefile(logf);
    //Log im Programm aktualisieren
    LogList.Items.Clear;
    LogList.Items.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Log.txt');
Das Phänomen was dabei nun auftritt ist folgendes:

Im Log steht (wenn ich ihn im Editor öffne) alles korrekt drin aber in der Stringlist (bei Memo das gleiche) geht er nur bis zum Benutzernamen und schneidet dann ab und zeigt dann auch folgende Logs nicht mehr an.
Code:
11.04.2018 - 10:20:12 - "Benutzername"
Öffne ich die Datei im Editor und speichere sie einmal (ohne Änderungen) wird sie korrekt angezeigt. Jemand eine Idee?
  Mit Zitat antworten Zitat