Michael Schimmel
34 lines
610 B
ObjectPascal
34 lines
610 B
ObjectPascal
unit Myc.Trade.DataPoint;
|
|
|
|
interface
|
|
|
|
uses
|
|
System.SysUtils;
|
|
|
|
type
|
|
// A specific data record structure for Ask and Bid prices.
|
|
TAskBidItem = packed record
|
|
Ask: Single;
|
|
Bid: Single;
|
|
end;
|
|
|
|
TDataPoint<T> = record
|
|
Idx: Int64;
|
|
Time: TDateTime;
|
|
Data: T;
|
|
constructor Create(AIdx: Int64; ATime: TDateTime; const AData: T);
|
|
end;
|
|
|
|
implementation
|
|
|
|
{ TDataPoint }
|
|
|
|
constructor TDataPoint<T>.Create(AIdx: Int64; ATime: TDateTime; const AData: T);
|
|
begin
|
|
Idx := AIdx;
|
|
Time := ATime;
|
|
Data := AData;
|
|
end;
|
|
|
|
end.
|