以下内容为程序代码:

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