[Gelöst] Aussortieren bei TList

[DeddyH]

Mir fällt erst einmal folgendes auf:

Zitat:

while not x > Shots.Count -1 do

Das sollte wohl
while not (x > Shots.Count -1) do heißen.

[edit] Verständlicher wird es IMHO so:

Delphi-Quellcode:

procedure TPlayer.SortShots;
var x: Integer;
  temp: PShot;
begin
  for x := Shots.Count -1 downto 0 do
  begin
    temp := PShot(Shots.Items[x]);
    if temp.Timer <= 0 then
    begin
      Shots.Remove(temp);
      dispose(temP);
    end;
  end;
end;

Wobei ich mich frage, was das mit Sortieren zu tun hat, das ist ja höchstens Aussortieren [/edit]