delphi - 重建丢失的代码 (InArray) - 续

Question

我缺少其他开发人员处理的某些代码中的一个单元。

我已经能够破译一些，这里的专家帮助了我和其他人，

我需要一个名为 InArray 的布尔函数。

我知道它需要一个 TIntArray 和整数并返回整数是否存在于 TIntArray 中的布尔值

TIntArray = array of Integer;


function InArray (A: TIntArray; n: Integer): Boolean;
begin
 // result:=
end;

我不确定其余部分是如何完成的。

任何帮助，将不胜感激。

谢谢

Answer 1

最有可能的是，该函数测试是否n属于该数组：

function InArray(A: TIntArray; n: Integer): boolean;
var
  i: integer;
begin
  result := false;
  for i := low(A) to high(A) do
    if A[i] = n then
      Exit(true);
end;

如果您使用的是旧版本的 Delphi (<2009)，您必须这样做

function InArray(A: TIntArray; n: Integer): boolean;
var
  i: integer;
begin
  result := false;
  for i := low(A) to high(A) do
    if A[i] = n then
    begin
      result := true;
      break;
    end;
end;

反而。

Answer 2

像这样：

function InArray (A: TIntArray; n: Integer): Boolean; 
var
  i: Integer;
begin
  for i := 0 to high(A) do
    if A[i]=n then
    begin
      Result := True;
      exit;
    end;
  Result := False;
end;