JsonDTO

mail@pastecode.io avatar
unknown
pascal
a year ago
1.8 kB
7
Indexable
Never
unit JsonDTO;

interface

type
  TData = class
    private
      FtodayLowestSellPrice: integer;
      FtodayHighestSellPrice: integer;
      FyesterdayClosingSellPrice: integer;
      FlastBuyPrice: integer;
      FlastSellPrice: integer;
      FdailyChange: integer;
      FdailyChangePercentage: double;
      FlastUpdateDate: string;
    published
      property todayLowestSellPrice: integer read FtodayLowestSellPrice write FtodayLowestSellPrice;
      property todayHighestSellPrice: integer read FtodayHighestSellPrice write FtodayHighestSellPrice;
      property yesterdayClosingSellPrice: integer read FyesterdayClosingSellPrice write FyesterdayClosingSellPrice;
      property lastBuyPrice: integer read FlastBuyPrice write FlastBuyPrice;
      property lastSellPrice: integer read FlastSellPrice write FlastSellPrice;
      property dailyChange: integer read FdailyChange write FdailyChange;
      property dailyChangePercentage: double read FdailyChangePercentage write FdailyChangePercentage;
      property lastUpdateDate: string read FlastUpdateDate write FlastUpdateDate;

  end;

type
  TMarket = class
    private
      FID: integer;
      FName: string;
      FDescription: string;
    published
      property id: integer read FID write FID;
      property name: string read FName write FName;
      property description: string read FDescription write FDescription;
  end;

type
  TItem = class
    private
      FName: string;
      FCode: string;
    FData: TData;
    FMarket: TMarket;
    published
      property name: string read FName write FName;
      property code: string read FCode write FCode;
      property data: TData read FData write FData;
      property market: TMarket read FMarket write FMarket;

  end;

implementation

end.