unit Myc.Trade.Ticker;

interface

uses
    Myc.Lazy;

type
    TMycLogger = reference to procedure(const Msg: String);

    IMycTradeObject = interface
    end;

    TMycTradeObject = class(TInterfacedObject, IMycTradeObject)
    private
        FCaption: string;
        FLog: TMycLogger;
        function GetCaption: string;
    public
        constructor Create(const ACaption: string; ALog: TMycLogger);
        property Caption: string read GetCaption;
        property Log: TMycLogger read FLog;
    end;

    IMycTime = interface
        {$REGION 'property access'}
        function GetTimeStamp: TDateTime;
        {$ENDREGION}
        property TimeStamp: TDateTime read GetTimeStamp;
    end;

    IMycTick = interface
        {$REGION 'property access'}
        function GetAsk: Double;
        function GetBid: Double;
        function GetTime: IMycTime;
        function GetVolume: Double;
        {$ENDREGION}
        property Ask: Double read GetAsk;
        property Bid: Double read GetBid;
        property Time: IMycTime read GetTime;
        property Volume: Double read GetVolume;
    end;

    IMycTicker = interface(IMycTradeObject)
        {$REGION 'property access'}
        function GetLastTick: TLazy<IMycTick>;
        function GetCurrentTime: IMycTime;
        {$ENDREGION}
        property LastTick: TLazy<IMycTick> read GetLastTick;
        property CurrentTime: IMycTime read GetCurrentTime;
    end;

    IMycHistoryTicker = interface(IMycTicker)

    end;

implementation

constructor TMycTradeObject.Create(const ACaption: string; ALog: TMycLogger);
begin
    inherited Create;
    FCaption := ACaption;
    FLog := procedure(const Msg: String) begin ALog('[' + FCaption + '] ' + Msg); end;
end;

function TMycTradeObject.GetCaption: string;
begin
    Result := FCaption;
end;

end.