ersten n Elemente aus einem dynamischen Array ausschneiden

[marabu]

Hi.

Zitat von Martin K:

Da bei einem Array die Anzahl der Zeilen vordefiniert ist,
kannst du nicht nachträglich im Quellcode die Anzahl der Zeilen verändern.

Bei dynamischen Arrays - siehe Titel - geht das:

Delphi-Quellcode:

type
  TBaseType = integer;
  TIntegerArray = array of TBaseType;

procedure DeleteElements(var da: TIntegerArray; start, count: cardinal);
var
  i: integer;
begin
  if count > (length(da) - start)
    then count := Length(da) - start
    else Move(da[start + count], da[start], SizeOf(TBaseType) * (Length(da) - start - count));
  SetLength(da, Length(da) - count);
end;

Grüße vom marabu