setlength bei dynamischen array

[choose]

Hallo Scottsman,

vielleicht hilft das?

Delphi-Quellcode:

procedure AddItem(var AnArray: TMyTypeArray; const AnItem: TMyType);
var
  iLast : Integer;
begin
  iLast := Length(AnArray);
  SetLength(AnArray, Succ(iLast));
  AnArray[iLast] := AnItem;
end;