Montag, 5. März 2012

Zurücksetzen einer Textdatei in Free Pascal

Die normale Prozedur zum Verändern der Schreib-/Leseposition in Free Pascal ist Seek. Diese Prozedur kann allerdings nicht auf Textdateien angewendet werden. Über einen Unweg kann aber auch die Schreib-/Leseposition in Textdateien gesetzt werden. Zum Beispiel auf den Anfang der Datei:

FileSeek(GetFileHandle(f), 0, fsFromBeginning);

Dabei ist f natürlich die geöffnete Datei. Alle Symbole finden sich in SysUtils.