只能用下面的判断
var 
  i:Integer;
  b:Boolean;b:=false;
for i:=Low(ShowNum) to High(ShowNum) do
  if TempNum=ShowNum(i) then 
  begin
    b:=true;
    break;
  end;
if b then ....不知VB是从哪里复制的?