- var
- a : array of byte;
- list : TObjectList;
- i : integer;
- begin
- list := TObjectList.Create(true);
- for i:=0 to 1000 do begin
- SetLength(a,i);
- list.Add(TObject.Create);
- Memo1.Lines.Add(IntToStr(Integer(a)));
- end;
- list.free;
Dynamische Arrays löschenModerator: DGL-Team
|