восстановление потерянного кода (InArray) - cont

Question

Мне не хватает единицы из кода, над которым работал другой разработчик.

я смог расшифровать некоторые, и эксперты здесь помог мне с другими,

мне нужна булева функция под названием InArray.

Я знаю, что он принимает TIntArray и целое число и возвращает логическое значение, существует ли или не целое число в TIntArray

TIntArray = array of Integer; 


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

Я не знаю, как будет завершено остальное.

любая помощь будет оценена.

Thanx

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;