source: branches/CpuSingleSize/Project.pas

unit Project;

interface

uses
  Classes, SysUtils, Generics.Collections;

type
  TProjectItem = class
    Name: string;
  end;

  TProjectItems = class(TObjectList<TProjectItem>)

  end;

  TProjectFile = class
    Content: string;
  end;

  { TProjectFolder }

  TProjectFolder = class
    Items: TProjectItems;
    constructor Create;
    destructor Destroy; override;
  end;

  { TProject }

  TProject = class
    FileName: string;
    Items: TProjectItems;
    constructor Create;
    destructor Destroy; override;
  end;

implementation

{ TProjectFolder }

constructor TProjectFolder.Create;
begin
  Items := TProjectItems.Create;
end;

destructor TProjectFolder.Destroy;
begin
  FreeAndNil(Items);
  inherited;
end;

{ TProject }

constructor TProject.Create;
begin
  Items := TProjectItems.Create;
end;

destructor TProject.Destroy;
begin
  FreeAndNil(Items);
  inherited;
end;

end.