以下内容为程序代码:
1 if debug=1 then begin
2 debugcontent:=numtostr(year,0)+'-'+numtostr(month,0)+'-'+numtostr(day,0)+','+stkname+','+
3 numtostr(enterhour,0)+':'+numtostr(enterminute,0)+','+numtostr(tenterprice,0)+',Buy,'+
4 numtostr(hour,0)+':'+numtostr(minute,0)+','+numtostr(texitprice,0)+','+
5 numtostr(texitprice-tenterprice,0)+','+numtostr(2*commission,0)+','+numtostr(lots,0)+','+
6 numtostr(tnumprofit(1),0)+','+numtostr(tasset,2);
7 debugfile(filepath,debugcontent,0);
8 msgout(1,'1');
9 end
红色代码可以正常输出，debugfile不输出数据。