Einzelnen Beitrag anzeigen

malibu85

Registriert seit: 27. Dez 2007
45 Beiträge
 
#4

Re: Funktion Seek (arbeiten mit Datein)

  Alt 7. Jan 2008, 08:30
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
  Mit Zitat antworten Zitat