delphi 查询数组中某个值的序号 20
我要在kid[i]=orderid的时候,将ThisTradePrice赋值给kp[i]procedureTForm1.CTPTrade(ASender:TObject;...
我要在kid[i]=orderid的时候,将 ThisTradePrice赋值给kp[i]
procedure TForm1.CTPTrade(ASender: TObject; OrderID: Integer;
const InstrumentID: WideString; IsBuy, IsOpen, ThisTradeVolume: Integer;
ThisTradePrice: Double; const TradeTime: WideString);
Var
i,iz,orderidk:integer;
t1,t3:double;
begin
for i:=0 to 5 then begin
if kid[i]=orderid then begin //kid[i]是个int型的全局数组变量,别的地方已经复制,测试过,数据是问题
cs.caption:='yes'; //order的数据也没有问题,edit显示的结果是一样的,可是cs就是没有反应
kp[i]:=ThisTradePrice;
break;
end;
end;
end; 展开
procedure TForm1.CTPTrade(ASender: TObject; OrderID: Integer;
const InstrumentID: WideString; IsBuy, IsOpen, ThisTradeVolume: Integer;
ThisTradePrice: Double; const TradeTime: WideString);
Var
i,iz,orderidk:integer;
t1,t3:double;
begin
for i:=0 to 5 then begin
if kid[i]=orderid then begin //kid[i]是个int型的全局数组变量,别的地方已经复制,测试过,数据是问题
cs.caption:='yes'; //order的数据也没有问题,edit显示的结果是一样的,可是cs就是没有反应
kp[i]:=ThisTradePrice;
break;
end;
end;
end; 展开
3个回答
展开全部
..你的意思是不是你确定if kid[i]=orderid 这个条件肯定成立。但是没有执行cs.caption:='yes'; 这句话?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你debug了么 进入到if kid[i]=orderid then这个里面了么
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你在cs.caption下面shoemessage下他的值看看,调试下看
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询