if
not(cicang_dtprice = sprice) then
begin
//tcancelex(1 ,2 ,'8880888' ,cicang);
writeinifile('c:\8880888.ini',stkname(),stklabel&'-chedan',0);
repeat
begin
chedan:=getinifile('c:\8880888.ini',stkname(),stklabel&'-chedan');
if chedan = 0 then
begin
tcancelex(1 ,2 ,'8880888' ,cicang);
writeinifile('c:\8880888.ini',stkname(),stklabel&'-chedan',1);
end
chedangcon:=tremainqty( 2,'8880888' ,cicang);
end
until chedangcon = 0;
//sleep(100);
tsell(1,how,lmt,sprice,0,'8880888',cicang),allowrepeat;
//debugfile('c:\133one.txt','how01 %.2f ',how);
debugfile('c:\133one.txt','cicang_dtprice %.2f ',cicang_dtprice);
debugfile('c:\133one.txt','sprice %.2f ',sprice);
debugfile('c:\133one.txt','how01 %.2f ',how);
debugfile('c:\133one.txt','cc800988 %.2f ',0000000000000);
end
死机是金字塔下单模块占用了100%系统资源。实盘没记日志,调试文件也看不出问题。
chedan:=getinifile('c:\8880888.ini',stkname(),stklabel&'-chedan');
在这句话后面调试输出chedan
chedangcon:=tremainqty( 2,'8880888' ,cicang);
在这句话后面调试输出chedancon
需要分析撤单的条件以及调出循环条件的成立情况