preclose:CALLSTOCK(‘510050’ ,vtCLOSE ,6,-1 );//取得昨日的收盘价
VARIABLE:OP_K[30]=0; //定义一个数组
op_k[1]:=1.5; //数组第一个数字是1.5
//数组第一个数字是1.5，第二个是1.55，如此类推。
for i=2 to 30 do begin
op_k[i]:=op_k[i-1]+0.05;
end;
n:10000;
m:0;
//对比昨日收盘价与数组组合，找到最接近昨日收盘价的数组数值。例如昨日收盘价是2.49，则m应该等于2.5
FOR i=1 TO 30 DO BEGIN
if abs(op_k[i]-PRECLOSE)<n THEN begin
n:=abs(op_k[i]-PRECLOSE);
m:=op_k[i];
end
END
;
FOR i=1 TO 30 DO BEGIN
if abs(op_k[i]-close)<n then n:=op_k[i];
end