source: trunk/Packages/Kernel/Kernel.FileSystem.pas

unit Kernel.FileSystem;

interface

uses
  Classes, SysUtils, Kernel.List;

type
  TFileSystemObject = class(TNamedObject)

  end;

  TFile = class(TFileSystemObject)
    Size: Integer;
  end;

  { TDirectory }

  TDirectory = class(TFileSystemObject)
    Items: TNamedObjects<TFileSystemObject>;
    constructor Create;
    destructor Destroy; override;
  end;

  { TFileSystem }

  TFileSystem = class
    TopDirectory: TDirectory;
    constructor Create;
    destructor Destroy; override;
  end;

  TFileSystemClass = class of TFileSystem;


implementation

{ TFileSystem }

constructor TFileSystem.Create;
begin
  TopDirectory := TDirectory.Create;
end;

destructor TFileSystem.Destroy;
begin
  TopDirectory.Free;
  inherited Destroy;
end;

{ TDirectory }

constructor TDirectory.Create;
begin
  Items := TNamedObjects<TFileSystemObject>.Create;
end;

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

end.