source: trunk/MetroPassenger.pas

unit MetroPassenger;

interface

uses
  Classes, SysUtils, Generics.Collections, Items, DOM, XML;

type
  TDestinationShape = (ssCircle, ssSquare, ssTriangle, ssStar, ssPlus, ssPentagon,
    ssDiamond, ssQuarterCircle, ssHexagon, ssCross, ssHalfCircle, ssHeptagon);
  TDestinationShapeSet = set of TDestinationShape;
  TDestinationIndex = Integer;
  TDestinationIndices = array of TDestinationIndex;

  { TMetroPassenger }

  TMetroPassenger = class(TItem)
    DestinationIndex: TDestinationIndex;
    class function GetClassSysName: string; override;
    procedure LoadFromXmlNode(Node: TDOMNode); override;
    procedure SaveToXmlNode(Node: TDOMNode); override;
  end;

  { TMetroPassengers }

  TMetroPassengers = class(TItems<TMetroPassenger>)
    class function GetClassSysName: string; override;
  end;


implementation

{ TMetroPassengers }

class function TMetroPassengers.GetClassSysName: string;
begin
  Result := 'MetroPassengers';
end;

{ TMetroPassengers }

class function TMetroPassenger.GetClassSysName: string;
begin
  Result := 'MetroPassenger';
end;

procedure TMetroPassenger.LoadFromXmlNode(Node: TDOMNode);
begin
  inherited;
  DestinationIndex := ReadInteger(Node, 'DestinationIndex', DestinationIndex);
end;

procedure TMetroPassenger.SaveToXmlNode(Node: TDOMNode);
begin
  inherited;
  WriteInteger(Node, 'DestinationIndex', DestinationIndex);
end;

end.