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.

[himitsu]

Einfachen und sicheren Trick Tipp:

Leite dir eine neue Komponente von TBitmap ab und spendiere ihr ein neues Property "TextInfo",
oder erstell dir ein Container-Object für TextInfo und das Bitmap.

Nun alles in eine TObjektList mit OwnsObjects=True und fertig.

[Iwo Asnet]

Ich würde das eh anders machen (manchmal die einfachste Möglichkeit, ein Problem zu lösen)

Delphi-Quellcode:

i := Low(Info);
While i<=High(Info) do begin
  if Info[i].Deleted then begin
    MoveInfo(High(Info),i);
    setLength(Info, Length(Info) - 1);
  end; 
  inc(i);
end;

Also: Jedes 'Loch' wird einfach mit dem höchsten Element aufgefüllt und die Liste dann verkleinert.
Sofern Du keine sortierte Liste hast, geht das natürlich viel schneller.

Tipp: Verwende die 'Top-Down Programmierung mit Stepwise refinement' Das war vor 30 Jahren, als ich angefangen habe, state of the art. Und ist es immer noch, wenn ich an Refactoring denke und die Prämisse, Code lesbar und kompakt zu halten.