Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.017 Beiträge
 
Delphi 12 Athens
 
#6

Re: TFilestream immer vollständige Zeilen einlesen

  Alt 16. Dez 2007, 18:19
In etwa so:
Delphi-Quellcode:
i := FS.Read(Buffer, BufLen);
i2 := LetztenZeilenumruchSuchen;
i3 := i - i2 - 1{oder -2 ... je nach Länge des Zeilenumbruchs ... #10 / #13#10};
Delete(Buffer, i2 + 1{oder +2}, BisEnde);
FS.Seek(-i3, soCurrent);
und so schwer ist das doch garnicht?
- einfach nachsehn wie lang die letzte Teilzeile ist
- letzte (unvollständige) Teilzeile aus'm Puffer löschen
- um soviele Bytes im Stream zurückgehn, wie diese Zeile lang war
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat