Ja sie existiert, aber ich habe gerade eine Lösung gefunden. Aus irgendeinem Grund hat Delphi die while schleife zwei mal durchlaufen obwohl nur ein Element existierte.
Habe es jetzt wie folgt behoben, wenngleich ein wenig umständlich.
Delphi-Quellcode:
procedure TForm1.Ausgeben;
var yPos, i: integer;
begin
for yPos:= 1 to 30 do begin
StringGrid1.Cells[1, yPos]:= '';
StringGrid1.Cells[2, yPos]:= '';
end;
sportler:= schnellster;
ypos:= 1;
for i:= 1 to anzahl do begin // <-- Habe nun nach jedem Einfügen bzw. Löschen die anzahl Variable die Sportler zählen lassen
StringGrid1.Cells[1, yPos]:= sportler^.name;
StringGrid1.Cells[2, yPos]:= FloatToStr(sportler^.zeit);
sportler:= sportler^.next;
ypos:= ypos+1;
end;
end;
So funktioniert es