ActiveDelphi

[ombrerico]

function in_array(i_nr,i_array : boolean) : boolean;
var k : Integer;
begin
result:=false;
for k:=0 to VarArrayHighBound(i_array,1) do begin
if i_nr=i_array[k] then begin
result:=True;
break;
end;
end;
end;
Erro: Undeclared identifier: "VarArrayHIghBound"

[leo_cj]

A biblioteca Variants está sendo referenciada na uses do formulário?

[ombrerico]

Var VarArrayHighBound : Integer; // ok assim funciona
ou
Eu sei que ela percorre todo a array até o seu final.
Logo seu valor no caso é 37.

Então eu posso substituir esse termo VarArrayHighBoun pelo número 37 que vai funcionar
da mesma forma, porem obtenho outro erro.

function in_array(i_nr,i_array : boolean) : boolean;
var k : Integer;
begin
result:=false;
for k:=0 to 37(i_array,1) do begin
if i_nr=i_array[k] then begin
result:=True;
break;
end;
end;
end;

Erro: Missing operator or semicolon
Erro aqui: (i_array,1)

O que você acha?

[natanbh1]

Mantenha se código com VarArrayHighBound e adicione na uses:

// Delphi's novos

[ombrerico]

[leo_cj]

Você pode fazer assim também:

[ombrerico]

Sim é verdade.

O código é em pascal e funciona 100%
mas quando jogado em Delphi tudo para.

Terei que recriar tudo do zero.

Obrigado pela ajuda.