Find in array

Find in array ( array ; valor {; inicio} ) : Integer

Parâmetro	Tipo		Descrição
array	Array	→	Array a buscar
valor	Expression	→	Valor do mesmo tipo a ser buscado no array
inicio	Integer	→	Elemento no qual se inicia a busca
Resultado	Integer	←	Número do primeiro elemento no array que corresponde ao valor

Descrição

O comando Find in array devolve o número do primeiro elemento do Array que corresponde a valor.

Find in array pode se utilizar com arrays de tipo Texto, Alfa, Numérico, Data, Apontador e Booleano. Os parâmetros Array e valor devem ser do mesmo tipo.

valor deve ser exatamente igual ao elmento a encontrar (mesmas regras que as aplicadas ao operador de igualdade, ver Operadores de Comparação). Se nenhum resultado for encontrado, Find in array retorna –1.

Nota: Com arrays Objeto, pode usar apenas referências de objeto no parâmetro valor

Se especificar principio, o comando começa a busca no número de elemento especificado por principio. Se não se especifica principio, o comando começa a busca no elemento 1.

Exemplo 1

O método de projeto a seguir deleta todos os elementos apagados do string ou array de texto cujo ponteiro é passado como parâmetro:

  // Método de projecto LIMPAR ARRAY
  // LIMPAR ARRAY ( Ponteiro )
  // LIMPAR ARRAY ( -> Array de Texto ou Alfa )
 
 var $1 : Pointer
 Repeat
    $vlElem:=Find in array($1->;"")
    If($vlElem>0)
       DELETE FROM ARRAY($1->;$vlElem)
    End if
 Until($vlElem<0)

Depois de implementar este método de projeto em uma base, pode escrever:

 ARRAY TEXT(atValores;...)
  // ...
  // Utilizar o array como quiser
  // ...
  // Eliminar os elementos de cadeias vazias
 LIMPAR ARRAY(->atValores)

Exemplo 2

O método de projeto a seguir selecionar o primeiro elemento de um array cujo ponteiro passa como primeiro parâmetro que corresponde ao valor da variável ou campo cujo ponteiro é passado como parâmetro:

  // Método de projeto SELECIONAR ELEMENTO
  // SELECIONAR ELEMENTO( Ponteiro ; Ponteiro)
  //SELECIONAR ELEMENTO ( -> Array Texto ou Alfa ; -> Campo ou variável de tipo Texto ou Alfa )
 
 $1->:=Find in array($1->;$2->)
 If($1->=-1)
    $1->:=0 // Se um elemento não é encontrado, fixar o array em um elemento não selecionado
 End if

Depois de implementar este método em um banco, você pode escrever:

  // Método de objeto de menu suspenso asGenero
 Case of
    :(Form event code=On Load)
       SELECIONAR ELEMENTO(->asGenero;->[Pessoas]Genero)
 
 End case

//``

**Nota:** este exemplo utiliza o **elemento selecionado** do array. Leve em conta que o elemento selecionado não é significativo se o array contém mais de 32.767 elementos (ver *Arrays e objetos de formulário*). Neste caso, é necessário utilizar uma variável de tipo inteiro longo para armazenar o resultado de **Find in array**. 

#### Exemplo 3 

Para encontrar uma referência de objeto

```4d
 ARRAY OBJECT($objects;100)

$o1:={a10;b"xyz"}
 $o2:={a10;b"xyz"}
 
 $objects{20}:=$o1
 var $p : Integer
 
 $p:=Find in array($objects;$o1) //$p = 20 
 $p:=Find in array($objects;$o2) //$p = -1 
 $p:=Find in array($objects;{a10;b"xyz"}) //$p = -1

Ver também

Count in array
DELETE FROM ARRAY
Find in sorted array
INSERT IN ARRAY
Size of array