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.