//r1:=todaybar-1;
w8:=mod(r1,5);//如果是1分钟周期把5改成10
//p3参考我的有关程序中的表述；
if w8=0 and p3<=xd then
begin
w1:=tasset;
w2:=numtostr(w1,0);
w3:=strcat('你的账号 动态权益:',w2);
w4:=taccount(31);
w5:=numtostr(w4,0);
w6:=strcat(' 手续费:',w5);
w7:=strcat(w3,w6);
sendmail(1,'你的QQ号@qq.com','中证',w7);
end
这个只通知你的权益和手续费，如果账户断开了显示的-1，你可以再加行情时间的变化情况，判断行情数据是否正常。
[此贴子已经被作者于2013/9/20 20:12:57编辑过]
你这里面关键是 w8=0，在K线走完模式下，是不是只发一次邮件？还是会发6~8个（以往经验）？
我是想在1分钟，K线走完下，每10分钟发个邮件，表示正常。只发一个。
p3<=1 是需要的，这样只有在10分钟这根k线走完前1秒程序才计算begin----end之间的语句，能够提高模型的运行效率。