TFileStream: Textdatei auslesen

[Jens Schumann]

Zitat von Stevie:

Moin,

wie wär's mit

Delphi-Quellcode:

while Fs.Read(Buffer, Length(Buffer)) = 15 do
  // hat geklappt...

MfG
Stevie

Das klappt aber nur, wenn sich die Anzahl der Zeichen in der Textdatei ohne Rest durch 15 teilen läßt. Wenn ein Rest auftritt, werden die letzten Zeichen in der Textdatei nicht gelesen.