unit Myc.Trade.Types;

interface

type
    // A data record for an Ask/Bid price pair.
    TAskBidItem = packed record
        Ask: Double;
        Bid: Double;
        constructor Create(AAsk, ABid: Double);
    end;

    TOhlcItem = record
        Open: Double;
        High: Double;
        Low: Double;
        Close: Double;
        Volume: Double;
        constructor Create(AOpen, AHigh, ALow, AClose, AVolume: Double);
    end;

implementation

{ TAskBidItem }

constructor TAskBidItem.Create(AAsk, ABid: Double);
begin
    Ask := AAsk;
    Bid := ABid;
end;

{ TOhlcItem }

constructor TOhlcItem.Create(AOpen, AHigh, ALow, AClose, AVolume: Double);
begin
    Open := AOpen;
    High := AHigh;
    Low := ALow;
    Close := AClose;
    Volume := AVolume;
end;

end.