Sviluppo4d.it
Sito indipendente di informazioni tecniche per sviluppatori 4th Dimension italiani  

Sviluppatori 4D

Utility 4D

Risorse 4D



4d logo
Naviga: Prev Next

Titolo: Programma una ricerca sugli array!

Categoria: Codice Ultimo Aggiornamento: 31/08/04


Ecco uno spunto su come effettuare una ricerca su un array: nell'array di partenza vengono cancellati gli elementi che non servono, e così se la dimensione dell'array diventa zero, la ricerca ha risultato nullo.

Al metodo vengono passati come parametri due puntatori, uno all'array (si suppone non vuoto, altrimenti bisogna aggiungere questo controllo) e uno all'elemento cercato.

C_POINTER($1;$2;$puntatoreArray_ptr;$puntatoreValore_ptr)
$puntatoreArray_ptr:=$1
$puntatoreValore_ptr:=$2

C_LONGINT($posizione;$PrimoDaControllare_l;$dimensioneArray_l)
$posizione:=1
$PrimoDaControllare_l:=0
Repeat
  $PrimoDaControllare_l:=$PrimoDaControllare_l+1
  $posizione:=Find in array($puntatoreArray_ptr->;$puntatoreValore_ptr->;$PrimoDaControllare_l)
  If ($posizione>0)
    DELETE ELEMENT($puntatoreArray_ptr->;$PrimoDaControllare_l;$posizione-$PrimoDaControllare_l)
  End if
Until ($posizione<0)

$dimensioneArray_l:=Size of array($puntatoreArray_ptr->)
If ($dimensioneArray_l>=$PrimoDaControllare_l)
  DELETE ELEMENT($puntatoreArray_ptr->;$PrimoDaControllare_l;($dimensioneArray_l-$PrimoDaControllare_l)+1)
End if


Inviato da: PierPaolo Sichera Visite: 7733

Se accedi con utente e password, puoi aggiungere dei commenti.


Pagina servita il 26/06/19 alle 12:09:16 Valid HTML 4.01! Valid CSS!

Mutuo Facile, Serie Filmcards, Serie Singloids e altre app di Nexus srl per iPhone e iPad

Cidroid, distributore italiano lettori barcode per Apple iPhone, iPod, iPad della IPC