Ein Element eines Arrays löschen?

[marabu]

Hallo Nikolai,

warum nicht? Der von TList verwaltete Zeiger hat den gleichen Platzbedarf wie DWORD, Cardinal und Integer.

Wenn das Array ungeordnet ist, dann geht auch sowas:

Delphi-Quellcode:

uses
  Types;

procedure DeleteItem(var ida: TIntegerDynArray; index: Integer);
begin
  if index in [Low(ida) .. High(ida)] then
  begin
    if index < Length(ida) then
      ida[index] := ida[High(ida)];
    SetLength(ida, High(ida));
  end;
end;

Getippt und nicht getestet.

Schönes Wochenende