Funktion Seek (arbeiten mit Datein)

[Klaus01]

Zitat von malibu85:

könnte ich nun auch eine schlife erstellen, welche die Komplette datei einmal durchläuft
also ungefähr so

Delphi-Quellcode:

reset(Dat);
Seek(dat,0);
while not (  Seek(dat,FileSize(dat)  ) do
begin
read(Dat,Werte);
seek(Dat,filepos(Dat)+1);

habe mir gedacht, dass das durchlaufen wie bei einer liste funktioniert. also ich setze mit Seek(dat,0) den zeiger auf die erste Position und setze in der schleife den zeiger immer eins weiter bis er eof ist.

geht das? hab mir gedacht das seek(Dat,filepos(Dat)+1); den zeiger um eine position weiter setzt

Die Datei kannst Du mit

while not eof(dat) do durchlaufen.
Und nach einem read wird der Positionszeiger automatisch um 1 erhöht.
Bei Dir würde nur jeder zweite Datensatz gelesen.

Grüße
Klaus