我想判断一个整数是否存在于一个整数数组中,delphi有没有这个函数? 好像in的功能一样

xxiaowang您好： in不能达到您的要求吗？ 如：  

procedure TForm1.Button1Click(Sender: TObject);
begin
if 1 in [1..9] then
  begin
    ……
    do something
    ……
  end; 
end;     

~~~静心养德~~~

Hi,deity 可是我用的是动态数组: var i:integer; pagearray:array of integer; begin setlength(pagearray,maxpage); .... if i in pagearray then do something //可是这样会出错 .... end;

需注意 set 有限制範圍 0~255    所以，您的需求，最好是另寫function 處理會有較大的彈性(能處理的範圍就不會被限制在 0~255了)    

function setfun(tmp: array of integer; value: integer): Boolean;
var
    i: integer;
begin
    result := False;
    for i := 0 to length(tmp) - 1 do
    begin
        if tmp[i] = value then
        begin
            result := True;
            exit;
        end;        end;
end;    procedure TForm1.FormCreate(Sender: TObject);
var
    i: integer;
    pagearray: array of integer;
begin
    setlength(pagearray, 5);
    pagearray[1] := 1;
    if setfun(pagearray, 2) then
        ShowMessage('YES')
    else
        ShowMessage('NO');
end;

您好： 试试这样

 
var
  i:integer;
  pagearray:array of integer;
begin
  setlength(pagearray,maxpage);
....
  if i in [pagearray[low(pagearray)]..pagearray[high(pagearray)]] then do something //更正此方法对于连续的整数才有效，建议采用下面的方法
....
end;
或直接写
for j:=low(pagearray) to high(pagearray) do
  if i=pagearray[j] then do something 
逐一对比

试试看 > <>~~~静心养德~~~ 發表人 -