Zugriffsverletzung oder "Versuch ..[GELÖST SORRY]

[Ebil]

Ich arbeite grade mit typisierten dateien und hab da ein problem in dem code hoffe ich ma, debugger zeigt nix genaues an, sollte aber schon an der stelle hapern)

Delphi-Quellcode:

i := -1;
while not eof(datei) do
begin
inc(i);
seek(datei, i);
read(datei, datensatz);
lboutput......

Ich will einfach das am ende der datei etwas geschrieben wird, bei 0 soll angefangen werden zu gucken ob dort das ende ist, dann soll jeder datensatz in eine listbox ausgegeben werden.
Aber ich bekomme immer ( je nachdem was ich an "i" mach, die fehlermeldung zugriffsverletzung, oder halt das ich versuche das ende der datei zu lesen, habs auch schon mit seek(datei, i-1); versucht klappt aber leider nicht... fragt mich nich wieso.
Hoffe ein paar kluge köpfe unter euch können mir helfen

Ebil

€//: Edit oh gott kaum schreib ich hier nach stundenlangem rumprobieren rein, funktioniert es.
Die datei auf die ich zugreife hatte noch daten aus der alten version drin, die es nichtmehr lesen konnte.

[dominikkv]

das seek kannst du weglassen, damit auch i

[Ebil]

Ja und wie komme ich dann ans ende der datei?
Kann doch nich die ganze while schleife weglassen.

[kcx]

Zitat von Ebil:

Ja und wie komme ich dann ans ende der datei?

Evtl. so:
seek(datei, filesize(datei));

[Dax]

Read() versetzt den I/O-Zeiger automatisch, du musst nur seek()en, wenn du Datensätze überspringen oder nochmals bearbeiten willst.

[dominikkv]

Zitat von Ebil:

Ja und wie komme ich dann ans ende der datei?
Kann doch nich die ganze while schleife weglassen.

nö, die while-schleife bleibt:

Delphi-Quellcode:

while not eof(datei) do 
  begin 
    read(datei, datensatz); 
    lboutput.....

dabei springt er mit dem read immer automatisch zum nächsten Datensatz.