TStringArray

type TStringArray = class(AStringArray)

protected

  FData: StringArray;

  FCapacity: Integer;

  FCount: Integer;

  function GetCount; override;

  procedure SetCount(); override;

  function GetItem(); override;

  procedure SetItem(); override;

  function GetRange(); override;

  procedure SetRange(); override;

  procedure SetData(); virtual;

public

  constructor Create(); overload;

  procedure Assign();

  procedure ExchangeItems(); override;

  function DuplicateRange(); override;

  procedure Delete(); override;

  procedure Insert(); override;

  function AppendItem(); override;

  property Data: StringArray; [rw]

  property Count: Integer; [rw]

end;

TStringArray

AStringArray

AArray

AType

TObject