Доп. материалы / TreeView / TListUnit

unit TListUnit;

interface

uses Contnrs, TElementUnit, SysUtils, Classes;

type
  TElementList = class (TObject)
  private
    FList: TObjectList;
    function GetItems (index: integer): TElement;
    function GetCount: integer;
  public
    constructor Create ();
    destructor Destroy; override;
    procedure Add (Element: TElement);
    procedure Delete (Index: integer);
    procedure Remove (Element: TElement);
    procedure Clear;
  public
    property Items[Index: integer]: TElement read GetItems; default;
    property Count: integer read GetCount;
  end;

implementation

{ TElementList }

constructor TElementList.Create;
begin
  FList := TObjectList.Create;
end;

destructor TElementList.Destroy;
begin
  FList.Free;
  FList := nil;
  inherited;
end;

function TElementList.GetCount: integer;
begin
  Result := FList.Count;
end;

function TElementList.GetItems(Index: integer): TElement;
begin
  Result := FList.Items[Index] as TElement;
end;

procedure TElementList.Add(Element: TElement);
begin
  FList.Add (Element);
end;

procedure TElementList.Delete(Index: integer);
begin
  FList.Delete(Index);
end;

procedure TElementList.Remove(Element: TElement);
begin
  FList.Remove(Element);
end;

procedure TElementList.Clear;
begin
  FList.Clear;
end;

end.