Delphi Textdatei lesen/schreiben Phänomen

**Moombas**

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.

markieren

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?

Delphi Textdatei lesen/schreiben Phänomen

Delphi Textdatei lesen/schreiben Phänomen

Forumregeln