qusongjie 2013-11-11 14:16
浏览 1021

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;

  • 写回答

0条回答

    报告相同问题?

    悬赏问题

    • ¥50 汇编语言除法溢出问题
    • ¥65 C++实现删除N个数据列表共有的元素
    • ¥15 Visual Studio问题
    • ¥15 state显示变量是字符串形式,但是仍然红色,无法引用,并显示类型不匹配
    • ¥20 求一个html代码,有偿
    • ¥100 关于使用MATLAB中copularnd函数的问题
    • ¥20 在虚拟机的pycharm上
    • ¥15 jupyterthemes 设置完毕后没有效果
    • ¥15 matlab图像高斯低通滤波
    • ¥15 针对曲面部件的制孔路径规划,大家有什么思路吗