Beim Debuggen stoppt er an folgender Stelle:
Delphi-Quellcode:
procedure TForm1.Ausgeben;
var yPos: integer;
begin
for yPos:= 1 to 30 do begin
StringGrid1.Cells[1, yPos]:= '';
StringGrid1.Cells[2, yPos]:= '';
end;
sportler:= schnellster;
ypos:= 1;
while sportler <> nil do begin
StringGrid1.Cells[1, yPos]:= sportler^.name;
StringGrid1.Cells[2, yPos]:= FloatToStr(sportler^.zeit); //<--- Diese Zeile sei ein EAccessViolation
sportler:= sportler^.next;
ypos:= ypos+1;
end;
end;
Ist mir allerding schleierhaft, dass er die while schleife einmal komplett durchläuft und beim zweiten Mal an der benannten Stelle abbricht...