Michael Schimmel
44 lines
817 B
ObjectPascal
44 lines
817 B
ObjectPascal
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.
|