TCDStr:='需要预警时显示的内容,比如:
AAA:1234
BBB:2344';
bstr:="MessageBox('"$TCDStr$"','预警信息',mb_YesNo().| mb_SystemModal());";
SendToClient("do",bstr,'',nil,array(),10);
return 1;
//显示结果:
Function DoYuJInInRD();
Begin
//实时返回选定股票的盘中信息
stocks:=array("SH600000","SH600004","SH600009","SH600010","SH600011","SH600015","SH600016","SH600018","SH600019");
T0:=strtotime('15:01:00'); //收盘时间点
//盘前处理
Arr:=select thisrow as '代码',stockname(thisrow) as '名称' from stocks end;
while timeof(now())<T0 do
begin
for i:=0 to length(Arr)-1 do
begin
setsysparam(pn_stock(),Arr[i]['代码']);
Arr[i,'当前价']:=rd(6);
Arr[i,'5分钟涨幅(%)']:=RoundTo(rd(9),-3);
Arr[i,'成交金额']:=rd(7);
end
//---预警实现
// 5分钟涨幅(%)大于1的弹出预警消息
t:=select ['代码'],['5分钟涨幅(%)'],['成交金额'] from Arr where ['5分钟涨幅(%)']>-0.5 end;
//编辑显示串
mst:=mcols(t,1);
Tstr:='';
for j:=0 to length(t)-1 do
begin
for i:=0 to length(mst)-1 do
Tstr:=Tstr+mst[i]+':'+tostn(t[j,mst[i]])+' ';
Tstr+='\r\n';
end
if trim(Tstr)<>'' then//执行预警提示
doMessgeBox(Tstr);
sendrunningdata(Arr); //返回数据 -程序不结束
sleep(5*1000); //5秒刷一次
end
return '非交易时间段';
End;
function doMessgeBox(TCDStr);//弹出对话框
begin
//TCDStr为字符串
bstr:="MessageBox('"$TCDStr$"','预警信息',mb_YesNo().| mb_SystemModal());";
SendToClient("do",bstr,'',nil,array(),10);
end
//结果展示