If Ninteiro In Arrayinteiro Then ?

[Guest - wagner -]

if Ninteiro in ArrayInteiro then

gostaria de saber como fazer isso..

quero testar se um valor inteiro faz parte de um conjunto de valores inteiro..

grato

[Thales Pontes Martins]

Se ArrayInteiro for do tipo Set of integer, somente Ninteiro in ArrayOfInteiro basta.

Se ArrayInteiro for do tipo Array of integer então ->

type IntegerDynArray = array of integer;

function contem(elem : integer; arr : IntegerDynArray) : Boolean;
var i : cardinal;
begin
  for i:=0 to length(arr)-1 do if (arr[i] = elem) then
  begin
    result:=true;
    exit;
  end;
  result:=false;
end;

Ou Ainda ->

type IntegerDynArray = array of Integer;
function contem(elem : integer; arr : IntegerDynArray) : Boolean;
var i : integer;
begin
  for i in arr do
  begin
    if (i = elem)then
    begin
      result:=true;
      exit;
    end;
  end;
  result:=false;
end;