source: trunk/Application/UDataModel.pas

unit UDataModel;

{$mode delphi}

interface

uses
  Classes, SysUtils, SpecializedList;

type
  TDataType = (dtInteger, dtString, dtText, dtFloat, dtBoolean, dtReference,
    dtDate, dtTime, dtDateTime);

  TDataModelItem = class
    Name: string;
    Caption: string;
    DataType: TDataType;
  end;

  { TDateModelItems }

  TDataModelItems = class(TListObject)
    function AddItem(Caption, Name: string; DataType: TDataType): TDataModelItem;
  end;

  { TDataModel }

  TDataModel = class
    Name: string;
    Caption: string;
    Items: TDataModelItems;
    constructor Create;
    destructor Destroy; override;
  end;

implementation

{ TDataModel }

constructor TDataModel.Create;
begin
  Items := TDataModelItems.Create;
end;

destructor TDataModel.Destroy;
begin
  Items.Free;
  inherited Destroy;
end;

{ TDateModelItems }

function TDataModelItems.AddItem(Caption, Name: string; DataType: TDataType): TDataModelItem;
begin
  Result := TDataModelItem.Create;
  Result.Name := Name;
  Result.Caption := Caption;
  Result.DataType := DataType;
  Add(Result);
end;

end.