Array-Element löschen

[yankee]

Du kannst auch das ganze item hochrollen:

Delphi-Quellcode:

procedure TFeldliste.DeleteField(Index: Integer); 
var i,l : integer; 
begin 
  L := length(FListe); 
    for i := index to L-2 do
    begin 
      FListe[i] := FListe[i+1];
    end; 
  setlength(Fliste, length(fliste)-1); 

end;

Das ist kürzer und schneller. Nicht schneller als diese ObjectList, aber dafür kannst du dir das umschreiben sparen. Naja und bei kleinen Listen (<1000 Elemente) wirst du dabei auch keinen Performancenachteil haben, wenn du diese procedure nicht ganz oft hintereiander ausführst.