Delphi-Quellcode:
...
Res := DisableWriteProtection(Edit1.Text); //Schreibschutz aufheben
...
Reset(F); //Datei öffnen
...
Seek(F,0); //Satzzeiger an Anfang
While (NOT EOF(F)) do
begin
Pos := Pos + 1;
Seek(F, Pos);
end;
...
Zum Lesen braucht man den Schreibschutz nicht aufheben. Besser dürfte sein, die Datei nur zum Lesen zu öffnen:
FileMode := 0;
Der Befehl gehört zwischen AssignFile und Reset. Sonst bekommt man bei schreibgeschützten Dateien bei Reset einen IOError.
Reset (F) öffnet die Datei und setzt den Zeiger auf den Anfang der Datei. Deshalb sollte Seek (F, 0) eigentlich überflüssig sein.
Die while-Schleife macht aus dem von marabu genannten Grund keinen Sinn.