怎么判断一个数在数组内！

Question

我是个新手。请大家帮忙，谢谢！
我是写了一个子程序如下：
function INotInA(x: Integer; var A:array of Integer): Boolean;
beginend;
请大家提提供一下代码！

Answer 1

function INotInA(x: Integer; var A:array of Integer): Boolean;
var
  i : Integer;
begin
  result := False;
   for i:=0 to high(A) do
    begin
       if x= a(i) then
        Result := True;
    end;
end;

Answer 2

function INotInA(x: Integer; var A:array of Integer): Boolean;
var
  I: Integer;
begin
  Result := True;
  for I := 0 to Length(A) do
    if A[I] = X then
    begin
      Result := False;
      Break;
    end;
end;procedure TForm1.Button1Click(Sender: TObject);
var
  A: array[0..1] of Integer;
begin
  A[0] := 0;
  A[1] := 1;
  if INotInA(1, A) then
    ShowMessage('²»ÔÚ')
  else
    ShowMessage('´æÔÚ');
end;

Answer 3

修正前面出现的乱码部分if INotInA(1, A) then
  ShowMessage('不在')
else
  ShowMessage('存在');

Answer 4

function INotInA(x: Integer; var A:array of Integer): Boolean;
var
  I: Integer;
begin
  Result := True;
  for I := 0 to Length(A) - 1 do  // 进行修正
    if A[I] = X then
    begin
      Result := False;
      Break;
    end;
end;

Answer 5

function INotInA(x: Integer; var A:array of Integer): Boolean;
var
  I: Integer;
begin
  Result := false;
  for I := 0 to Length(A) - 1 do  
    if A[I] = X then
    begin
      Result := true;
      Break;
    end;
end;

Answer 6

上面的例子中for 循环中最好用 
for I := low(A) to high(A) do
beginend;

Answer 7

赞同小虫的做法,以上其他的方法有隐患,自己看看代码应该知道的
下面给出具体的代码
function INotInA(x: Integer; var A:array of Integer): Boolean;
var
  i:Integer;
begin
  result := False;
  for i:=low(A) to high(A) do
    if x=a[i] then begin
      Result := True;
      break;
    end    
end;