Einzelnen Beitrag anzeigen

TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
3.070 Beiträge
 
Delphi 10.4 Sydney
 
#4

AW: Problem beim Lesen (und schreiben?) von Stream

  Alt 13. Apr 2021, 12:41
fs:= TFileStream.Create(FileName, fmCreate); // in procedure TForm1.ProjektOpen
Zitat:
fmCreate - Create a file with the given name. If a file with the given name exists, override the existing file and open it in write mode.
Du überschreibst beim Öffnen die Datei. Die ist leer. Prüfe mal fs.Size.
Die sollte ja größer null sein, wenn richtig eingelesen.

Probiere es doch mal mit fmOpenRead.
  Mit Zitat antworten Zitat