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: 12095

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


Accesso

User:
Pass: Accedi

Cerca

Se non trovi le informazioni che cerchi scrivi a aiuto@sviluppo4d.it

4D Principali

4D Discussioni

Faq random


Crediti

Dominio registrato da ZetaNet
Sito realizzato da Nexus srl
4D SQL 11.9.0 offerto da 4D & Italsoftware
Icone di FAMFAMFAM
Moderato da Umberto Migliore
303 utenti registrati

Pagina servita il 28/03/24 alle 11:34:42 Valid HTML 4.01! Valid CSS!

Mutuo Facile, iDigitalScout, iDigitalTags e altre app di Nexid srl per iPhone e iPad

Cidroid, distributore italiano lettori barcode per IOS Apple iPhone, iPod, iPad