问题描述

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;