Array redimensionieren

[EWeiss]

Delphi.

Delphi-Quellcode:

// Redim Array
if (Item + ID_MAIN) <> FlagFound then
begin
  if gP.ShortCutfound > 0 then
    NewLen := High(gS) + gP.ShortCutfound
  else
    NewLen := High(gS) + 1;

  Setlength(gS, NewLen);
  ShortCut.CreateRecycleBin(MainHandle, NewLen);
  for x := ID_FIRST to NewLen do
  begin
    gS[x] := gS[x + 1];
    if x = (NewLen - gP.ShortCutfound) then
    begin
      for X1 := (NewLen - 1) downto (NewLen - gP.ShortCutfound) do
        Delete(gS, X1);
    end;
  end;
  FlagFound := High(gS);
end;

wie bekomme ich Setlength nach c++ portiert ?
High(gS)
gibt es auch nicht. Hmmm....

gruss