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（＆lt; 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;

重建丢失的代码（InArray） - 续

2 个答案: