Доп. материалы / 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.