Array-Delete Funktion

[Neutral General]

Hi,

Naja an die Leute, die hier groß "TList" rufen:

Delphi-Quellcode:

// TList spezifische Dinge weggelassen
procedure TList.Delete(Index: Integer);
var
  Temp: Pointer;
begin
  if (Index < 0) or (Index >= FCount) then
    exit;

  Dec(FCount);
  if Index < FCount then
    System.Move(FList^[Index + 1], FList^[Index],(FCount - Index) * SizeOf(Pointer));
end;

TList ist ja im Prinzip auch nurn Array

TList gibt allerdings reservierten Speicher nicht frei. Also kein SetLength.

PS: Aber handlicher ist TList mit Sicherheit trotzdem