[medvedeva]

вопрос по поводу класса TDom.. как сделать так, чтоб элементы собирались в динамичекую структуру?

Код:

type
   TKvartira = class // класс квартир
  private
    Number : Integer;
    S : Integer;
    procedure SetNumber(aNumber:integer);
    function GetNumber:integer;
    proedure SetS(kvS:integer);
    function GetS:integer;
  public
    constructor Create (aNumber:integer; aS:integer);
  property
    fNumber:integer read GetNumber write SetNumber;
  property
    fS:integer read GetS write SetS;
  end;
type
  TDom = class // класс дом
  private
    head, tail : TKvartira;
    fDom : Integer;
  public
    constructor Create (ADom : Integer);
    destructor Destroy;override;
    function IsEmpty : boolean;
    function Get : Kvartira;
    procedure Put (value : Kvartira);
    property Dom : Integer read fDom;
  end;
type
  TUlica = class // класс улица
  private
    fTitle : string;
    Arr : array of TDom;
    function GetDom (index : Integer) : TDom;
    function GetCount : Integer;
  public
    constructor Create (ATitle : string);
    destructor Destroy;override;
    procedure Add(Q : TDom);
    procedure Del: TDom;
    procedure Print (Q : TDom);
    property Title : string read fTitle;
    property Count : Integer read GetCount;
    property Dom[index : Integer] : TDom read GetDom; default;
  end;