{...}
type TSomeClass = class (TDebug)
   private
    Arr:PArray; {    }
    FList:PStrList; {  }
{...}
    {     } 
    procedure _Set(var Item:TData; var Val:TData);
    function _Get(Var Item:TData; var Val:TData):boolean;
    function _Count:integer;
    procedure _Add(var Val:TData);
{...}
implementation
{...}
procedure TSomeClass._Set;
{:    }

procedure TSomeClass._Add;
{:  }

function TSomeClass._Get;
{:    }

function TSomeClass._Count;
{:   }

procedure TSomeClass._var_Array; {    }
begin
   if Arr = nil then Arr := CreateArray(_Set, _Get, _Count, _Add);
   dtArray(_Data,Arr);
end;
___________________________________________________________________
 :

procedure THIRandom._work_doRandomWithoutRepeats;
var
  _max: integer;
  IRnd: Array of integer;
begin
  _max := Round(_prop_Max);
  SetLength(IRnd, _max);
.
.
.
.
  SetLength(IRnd, 0);     
end;
____________________________________________________________________


  //   1-   
  SetLength(multiArray, 3);

  //     3 
  SetLength(multiArray[0], 1);
  SetLength(multiArray[1], 2);
  SetLength(multiArray[2], 3);

___________________________________________________________________
afandi,  hiStrList.pas,     .

:        ,
    . :
set -    ,
get -    ,
count -   ,
add -  .
    Array      CreateArray,
      ( delphi,    C,
        
  ).