2 qusongjie qusongjie 于 2013.11.11 22:16 提问

delphi 从服务器上收到的数据能直接做加减吗

通过CTP的收到期货的市场数据,LASTPRICE是最新价格,是实时更新的。我可以打印LPRICE1和LPRICE2,但是他们的差值就不行,别的地方直接用LPRICE1和LPRICE2也不行,求高手指点啊!!越详细越好!!
Var
lprice1,lprice2,chajia:double;全局变量
procedure TForm1.CTPMarketData(ASender: TObject;
const InstrumentID: WideString; BidPrice1: Double; BidVolume1: Integer;
AskPrice1: Double; AskVolume1: Integer; OpenPrice, HighestPrice,
LowestPrice, LastPrice: Double; OpenInterest, Volume: Integer;
UpperLimitPrice, LowerLimitPrice, PreSettlementPrice,
AveragePrice: Double; const UpdateTime: WideString;
UpdateMilliSecond: Integer);

begin
if InstrumentID=IF1311 then begin
Lprice1:=lastprice;
end;
if InstrumentID=IF1312 then begin
Lprice2:=lastprice;
end;
chajia:=lprice1-lprice2;
showmessage(floattostr(chajia));
end;

Csdn user default icon
上传中...
上传图片
插入图片