Fehler beim Speichern???

[ichnixwissen]

Beim einlesen des Stringrids ließt er nur die erste Zeile ein und macht dann nicht weiter.

Delphi-Quellcode:

v:=0;
AssignFile(datei,z +'.kt');
 Reset(datei);
 m:=0;
  while not eof(datei) do
      begin
        m:=m+1;
    Read(datei,eintrag);
    with eintrag do
      begin
      stringGrid1.Cells[0,m]:= datum;
        stringGrid1.Cells[1,m]:=zahl;
        StringGrid1.Cells[2,m]:=zeit;
        Label8.Caption:= inttostr(m);
      end;
      end;
      closeFile(datei);
    v:= ((strtoint(Label8.Caption))+1);
    stringgrid1.Cells[0,v]:= Label7.Caption;
stringGrid1.Cells[1,v]:=label2.Caption;
StringGrid1.Cells[2,v]:=zeit.Caption;
end;
end;