Funktion kommt beim sortieren des Array durcheinander

[Bjoerk]

Das mit dem "Rest" hab' ich nicht verstanden, aber rauslöschen geht so (ungetestet)

Delphi-Quellcode:

procedure DelItem(const Index: integer);
var
  I: integer;
begin
  for I:= Index to Length(Info)-2 do
    Info[I]:= Info[I+1];
  Info[Length(Info)-1].Bmp.Free;
  SetLength(Info, Length(Info)-1);
end;

procedure ClearArray;
var
  I: Integer;
begin
  I:= 0;
  while I < Length(Info) do
  begin
    if Info[I].Delete then
    begin
      DelItem(I);
      Dec(I);
    end;
    Inc(I);
  end;
end;

end.