'' 里面是文本模式, 你要先计算,然后通过函数转换成文本,接着在代入到sendmail的各个参数位置。
给你段我以前用模块好了
以下内容为程序代码:
1 // 邮件提醒开始
2 OP1:=numtostr(enterprice,3);
3 ED1:=numtostr(EXITPRICE,3);
4 LIANG:=numtostr(holding,2);
5 BZJ:=numtostr(TACCOUNT(28),2);
6 址:='输入邮件地址';
7 开标:='开仓'+STKNAME +'价格'+OP1+'方向'+LIANG;
8 开信:='开仓价格'+OP1 + '数量'+LIANG +'保证金'+BZJ;
9
10 平标:='平仓'+STKNAME +'价格'+ED1;
11 平信:='平仓价格'+ED1 + '数量'+LIANG +'保证金'+BZJ;
12
13 ST_EMAIL:=;
14 K_EMAIL:=;
15 P_EMAIL:=;
16 IF ISLASTBAR then
17 BEGIN
18 SENDMAIL(K_EMAIL,址,开标,开信); // 开仓
19 SENDMAIL(ST_EMAIL,址,平标,平信); // 止盈
20 SENDMAIL(P_EMAIL,址,平标,平信); // 平仓
21 END
看了就明白, 其中执行部分是在开平时候做计数器,发送后在归零的。