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; wozu diese ends gehören kann man hier nicht erkennen
//end;
Ansonsten sieht für mich die Schleife o.k. aus.
Bist Du sicher das in der Datei mehr als 1 Datensatz ist?
Bist Du Deinen Code mal mit F7 oder F8 durchgegangen und hast Dir die
Variablen angeschaut?
Grüße
Klaus