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 = record Idx: Int64; Time: TDateTime; Data: T; constructor Create(AIdx: Int64; ATime: TDateTime; const AData: T); end; implementation { TDataPoint } constructor TDataPoint.Create(AIdx: Int64; ATime: TDateTime; const AData: T); begin Idx := AIdx; Time := ATime; Data := AData; end; end.