AeR Code

unit Model;
{$MODE ObjFpc}
{$H+}

interface

uses
  Classes, SysUtils, Contnrs;


type
  TModelBase = class(TObject)
    private
      FId: Int64;
    public
      property Id: Int64 read FId write FId;
    public
      constructor Create;
    public
      function IsNew: Boolean;
  end;

  TAerPage = class(TModelBase)
    private
      FContent: String;
      FPageType: Int64;
      FStyle: STring;
      FTitle: String;
    public
      property Title: String read FTitle write FTitle;
      property Content: String read FContent write FContent;
      property PageType: Int64 read FPageType write FPageType;
      property Style: STring read FStyle write FStyle;
    public
      constructor Create;
  end;

  TAerPageList = class(TFPObjectList)
    private
      function GetItem(Index: Integer): TAerPage;
      procedure SetItem(Index: Integer; AObject: TAerPage);
    public
      function Add(AObject: TAerPage): Integer;
      function Extract(Item: TAerPage): TAerPage;
      function Remove(AObject: TAerPage): Integer;
      function IndexOf(AObject: TAerPage): Integer;
      procedure Insert(Index: Integer; AObject: TAerPage);
      function First: TAerPage;
      function Last: TAerPage;
      procedure Assign(Obj: TAerPageList);
    public
      property Items[Index: Integer]: TAerPage read GetItem write SetItem; default;
  end;

  TAerAction = class(TModelBase)
    private
      FActionData: String;
      FActionType: Int64;
      FPageId: Int64;
    public
      property PageId: Int64 read FPageId write FPageId;
      property ActionType: Int64 read FActionType write FActionType;
      property ActionData: String read FActionData write FActionData;
    public
      constructor Create;
  end;

  TAerActionList = class(TFPObjectList)
    private
      function GetItem(Index: Integer): TAerAction;
      procedure SetItem(Index: Integer; AObject: TAerAction);
    public
      function Add(AObject: TAerAction): Integer;
      function Extract(Item: TAerAction): TAerAction;
      function Remove(AObject: TAerAction): Integer;
      function IndexOf(AObject: TAerAction): Integer;
      procedure Insert(Index: Integer; AObject: TAerAction);
      function First: TAerAction;
      function Last: TAerAction;
      procedure Assign(Obj: TAerActionList);
    public
      property Items[Index: Integer]: TAerAction read GetItem write SetItem; default;
  end;

  TAerPageExit = class(TModelBase)
    private
      FConstraints: String;
      FContent: String;
      FLeadsToPage: Int64;
      FPageId: Int64;
    public
      property PageId: Int64 read FPageId write FPageId;
      property Content: String read FContent write FContent;
      property LeadsToPage: Int64 read FLeadsToPage write FLeadsToPage;
      property Constraints: String read FConstraints write FConstraints;
    public
      constructor Create;
  end;

  TAerPageExitList = class(TFPObjectList)
    private
      function GetItem(Index: Integer): TAerPageExit;
      procedure SetItem(Index: Integer; AObject: TAerPageExit);
    public
      function Add(AObject: TAerPageExit): Integer;
      function Extract(Item: TAerPageExit): TAerPageExit;
      function Remove(AObject: TAerPageExit): Integer;
      function IndexOf(AObject: TAerPageExit): Integer;
      procedure Insert(Index: Integer; AObject: TAerPageExit);
      function First: TAerPageExit;
      function Last: TAerPageExit;
      procedure Assign(Obj: TAerPageExitList);
    public
      property Items[Index: Integer]: TAerPageExit read GetItem write SetItem; default;
  end;

  TAerPicture = class(TModelBase)
    private
      FData: String;
      FDescription: String;
    public
      property Description: String read FDescription write FDescription;
      property Data: String read FData write FData;
    public
      constructor Create;
  end;

  TAerPictureList = class(TFPObjectList)
    private
      function GetItem(Index: Integer): TAerPicture;
      procedure SetItem(Index: Integer; AObject: TAerPicture);
    public
      function Add(AObject: TAerPicture): Integer;
      function Extract(Item: TAerPicture): TAerPicture;
      function Remove(AObject: TAerPicture): Integer;
      function IndexOf(AObject: TAerPicture): Integer;
      procedure Insert(Index: Integer; AObject: TAerPicture);
      function First: TAerPicture;
      function Last: TAerPicture;
      procedure Assign(Obj: TAerPictureList);
    public
      property Items[Index: Integer]: TAerPicture read GetItem write SetItem; default;
  end;

  TAerItem = class(TModelBase)
    private
      FCountable: Boolean;
      FDescription: String;
      FMainItem: Boolean;
      FName: String;
      FPictureId: Int64;
      FVisible: Boolean;
    public
      property Name: String read FName write FName;
      property Description: String read FDescription write FDescription;
      property Visible: Boolean read FVisible write FVisible;
      property Countable: Boolean read FCountable write FCountable;
      property MainItem: Boolean read FMainItem write FMainItem;
      property PictureId: Int64 read FPictureId write FPictureId;
    public
      constructor Create;
  end;

  TAerItemList = class(TFPObjectList)
    private
      function GetItem(Index: Integer): TAerItem;
      procedure SetItem(Index: Integer; AObject: TAerItem);
    public
      function Add(AObject: TAerItem): Integer;
      function Extract(Item: TAerItem): TAerItem;
      function Remove(AObject: TAerItem): Integer;
      function IndexOf(AObject: TAerItem): Integer;
      procedure Insert(Index: Integer; AObject: TAerItem);
      function First: TAerItem;
      function Last: TAerItem;
      procedure Assign(Obj: TAerItemList);
    public
      property Items[Index: Integer]: TAerItem read GetItem write SetItem; default;
  end;

  TAerGameAttributes = class(TObject)
    private
      FType: Int64;
      FName: String;
      FValue: String;
    public
      property Name: String read FName write FName;
      property &Type: Int64 read FType write FType;
      property Value: String read FValue write FValue;
    public
        constructor Create;
      public
        function IsNew: Boolean;
  end;

  TAerGameAttributesList = class(TFPObjectList)
    private
      function GetItem(Index: Integer): TAerGameAttributes;
      procedure SetItem(Index: Integer; AObject: TAerGameAttributes);
    public
      function Add(AObject: TAerGameAttributes): Integer;
      function Extract(Item: TAerGameAttributes): TAerGameAttributes;
      function Remove(AObject: TAerGameAttributes): Integer;
      function IndexOf(AObject: TAerGameAttributes): Integer;
      procedure Insert(Index: Integer; AObject: TAerGameAttributes);
      function First: TAerGameAttributes;
      function Last: TAerGameAttributes;
      procedure Assign(Obj: TAerGameAttributesList);
    public
      property Items[Index: Integer]: TAerGameAttributes read GetItem write SetItem; default;
  end;

implementation

constructor TAerGameAttributes.Create;
begin
  inherited Create;
  FName := EmptyStr;
  FType := 0;
  FValue := EmptyStr;
end;

function TAerGameAttributes.IsNew: Boolean;
begin
  Result := (FName = EmptyStr);
end;

constructor TAerItem.Create;
begin
  inherited Create;
  FName := EmptyStr;
  FDescription := EmptyStr;
  FVisible := False;
  FCountable := False;
  FMainItem := False;
  FPictureId := 0;
end;


constructor TAerPicture.Create;
begin
  inherited Create;
  Description := EmptyStr;
  Data := EmptyStr;
end;

constructor TAerPageExit.Create;
begin
  inherited Create;
  FPageId := 0;
  FContent := EmptyStr;
  FLeadsToPage := 0;
  FConstraints := EmptyStr;
end;

constructor TAerAction.Create;
begin
  inherited Create;
  FActionData := EmptyStr;
  FActionType := 0;
  FPageId := 0;
end;

constructor TAerPage.Create;
begin
  inherited Create;
  FTitle := EmptyStr;
  FContent := EmptyStr;
  FPageType := 0;
  FStyle := EmptyStr;
end;

constructor TModelBase.Create;
begin
  inherited Create;
  FId := 0;
end;

function TModelBase.IsNew: Boolean;
begin
  Result := (FId = 0);
end;

function TAerPageList.GetItem(Index: Integer): TAerPage;
begin
  Result := TAerPage(inherited GetItem(Index));
end;

procedure TAerPageList.SetItem(Index: Integer; AObject: TAerPage);
begin
  inherited SetItem(Index, AObject);
end;

function TAerPageList.Add(AObject: TAerPage): Integer;
begin
  Result := inherited Add(AObject);
end;

function TAerPageList.Extract(Item: TAerPage): TAerPage;
begin
  Result := TAerPage(inherited Extract(Item));
end;

function TAerPageList.Remove(AObject: TAerPage): Integer;
begin
  Result := inherited Remove(AObject);
end;

function TAerPageList.IndexOf(AObject: TAerPage): Integer;
begin
  Result := inherited IndexOf(AObject);
end;

procedure TAerPageList.Insert(Index: Integer; AObject: TAerPage);
begin
  inherited Insert(Index, AObject);
end;

function TAerPageList.First: TAerPage;
begin
  Result := TAerPage(inherited First);
end;

function TAerPageList.Last: TAerPage;
begin
  Result := TAerPage(inherited Last);
end;

procedure TAerPageList.Assign(Obj: TAerPageList);
begin
  inherited Assign(Obj);
end;

function TAerActionList.GetItem(Index: Integer): TAerAction;
begin
  Result := TAerAction(inherited GetItem(Index));
end;

procedure TAerActionList.SetItem(Index: Integer; AObject: TAerAction);
begin
  inherited SetItem(Index, AObject);
end;

function TAerActionList.Add(AObject: TAerAction): Integer;
begin
  Result := inherited Add(AObject);
end;

function TAerActionList.Extract(Item: TAerAction): TAerAction;
begin
  Result := TAerAction(inherited Extract(Item));
end;

function TAerActionList.Remove(AObject: TAerAction): Integer;
begin
  Result := inherited Remove(AObject);
end;

function TAerActionList.IndexOf(AObject: TAerAction): Integer;
begin
  Result := inherited IndexOf(AObject);
end;

procedure TAerActionList.Insert(Index: Integer; AObject: TAerAction);
begin
  inherited Insert(Index, AObject);
end;

function TAerActionList.First: TAerAction;
begin
  Result := TAerAction(inherited First);
end;

function TAerActionList.Last: TAerAction;
begin
  Result := TAerAction(inherited Last);
end;

procedure TAerActionList.Assign(Obj: TAerActionList);
begin
  inherited Assign(Obj);
end;

function TAerPageExitList.GetItem(Index: Integer): TAerPageExit;
begin
  Result := TAerPageExit(inherited GetItem(Index));
end;

procedure TAerPageExitList.SetItem(Index: Integer; AObject: TAerPageExit);
begin
  inherited SetItem(Index, AObject);
end;

function TAerPageExitList.Add(AObject: TAerPageExit): Integer;
begin
  Result := inherited Add(AObject);
end;

function TAerPageExitList.Extract(Item: TAerPageExit): TAerPageExit;
begin
  Result := TAerPageExit(inherited Extract(Item));
end;

function TAerPageExitList.Remove(AObject: TAerPageExit): Integer;
begin
  Result := inherited Remove(AObject);
end;

function TAerPageExitList.IndexOf(AObject: TAerPageExit): Integer;
begin
  Result := inherited IndexOf(AObject);
end;

procedure TAerPageExitList.Insert(Index: Integer; AObject: TAerPageExit);
begin
  inherited Insert(Index, AObject);
end;

function TAerPageExitList.First: TAerPageExit;
begin
  Result := TAerPageExit(inherited First);
end;

function TAerPageExitList.Last: TAerPageExit;
begin
  Result := TAerPageExit(inherited Last);
end;

procedure TAerPageExitList.Assign(Obj: TAerPageExitList);
begin
  inherited Assign(Obj);
end;

function TAerPictureList.GetItem(Index: Integer): TAerPicture;
begin
  Result := TAerPicture(inherited GetItem(Index));
end;

procedure TAerPictureList.SetItem(Index: Integer; AObject: TAerPicture);
begin
  inherited SetItem(Index, AObject);
end;

function TAerPictureList.Add(AObject: TAerPicture): Integer;
begin
  Result := inherited Add(AObject);
end;

function TAerPictureList.Extract(Item: TAerPicture): TAerPicture;
begin
  Result := TAerPicture(inherited Extract(Item));
end;

function TAerPictureList.Remove(AObject: TAerPicture): Integer;
begin
  Result := inherited Remove(AObject);
end;

function TAerPictureList.IndexOf(AObject: TAerPicture): Integer;
begin
  Result := inherited IndexOf(AObject);
end;

procedure TAerPictureList.Insert(Index: Integer; AObject: TAerPicture);
begin
  inherited Insert(Index, AObject);
end;

function TAerPictureList.First: TAerPicture;
begin
  Result := TAerPicture(inherited First);
end;

function TAerPictureList.Last: TAerPicture;
begin
  Result := TAerPicture(inherited Last);
end;

procedure TAerPictureList.Assign(Obj: TAerPictureList);
begin
  inherited Assign(Obj);
end;

function TAerItemList.GetItem(Index: Integer): TAerItem;
begin
  Result := TAerItem(inherited GetItem(Index));
end;

procedure TAerItemList.SetItem(Index: Integer; AObject: TAerItem);
begin
  inherited SetItem(Index, AObject);
end;

function TAerItemList.Add(AObject: TAerItem): Integer;
begin
  Result := inherited Add(AObject);
end;

function TAerItemList.Extract(Item: TAerItem): TAerItem;
begin
  Result := TAerItem(inherited Extract(Item));
end;

function TAerItemList.Remove(AObject: TAerItem): Integer;
begin
  Result := inherited Remove(AObject);
end;

function TAerItemList.IndexOf(AObject: TAerItem): Integer;
begin
  Result := inherited IndexOf(AObject);
end;

procedure TAerItemList.Insert(Index: Integer; AObject: TAerItem);
begin
  inherited Insert(Index, AObject);
end;

function TAerItemList.First: TAerItem;
begin
  Result := TAerItem(inherited First);
end;

function TAerItemList.Last: TAerItem;
begin
  Result := TAerItem(inherited Last);
end;

procedure TAerItemList.Assign(Obj: TAerItemList);
begin
  inherited Assign(Obj);
end;

function TAerGameAttributesList.GetItem(Index: Integer): TAerGameAttributes;
begin
  Result := TAerGameAttributes(inherited GetItem(Index));
end;

procedure TAerGameAttributesList.SetItem(Index: Integer; AObject: TAerGameAttributes);
begin
  inherited SetItem(Index, AObject);
end;

function TAerGameAttributesList.Add(AObject: TAerGameAttributes): Integer;
begin
  Result := inherited Add(AObject);
end;

function TAerGameAttributesList.Extract(Item: TAerGameAttributes): TAerGameAttributes;
begin
  Result := TAerGameAttributes(inherited Extract(Item));
end;

function TAerGameAttributesList.Remove(AObject: TAerGameAttributes): Integer;
begin
  Result := inherited Remove(AObject);
end;

function TAerGameAttributesList.IndexOf(AObject: TAerGameAttributes): Integer;
begin
  Result := inherited IndexOf(AObject);
end;

procedure TAerGameAttributesList.Insert(Index: Integer; AObject: TAerGameAttributes);
begin
  inherited Insert(Index, AObject);
end;

function TAerGameAttributesList.First: TAerGameAttributes;
begin
  Result := TAerGameAttributes(inherited First);
end;

function TAerGameAttributesList.Last: TAerGameAttributes;
begin
  Result := TAerGameAttributes(inherited Last);
end;

procedure TAerGameAttributesList.Assign(Obj: TAerGameAttributesList);
begin
  inherited Assign(Obj);
end;

end.