// Déclaration
W_S_CODE est une structure
Code est une chaine
FIN
W_T_Code est un tableau dynamique de 0 W_S_CODE
W_C_Zm est une chaine = "ZM_test"
i est un entier long
J est un entier long
W_C_Val est une chaine
W_C_Retour est une chaine
W_C_HeureDeb est une chaine
W_C_HeureFin est une chaine
Memcrée(W_C_Zm)
Dimension(W_T_Code,1000000)
pour i = 1 A 1000000
// Zone mémoire
W_C_Val = i
Memajoute(W_C_Zm,W_C_Val,W_C_Val)
// Structure
W_T_Code[i]:Code = W_C_Val
FIN
INFO("chargé")
pour i = 1 à 1000000 pas 25000
// Structure
W_C_HeureDeb = Heuresys()
W_C_Val = i
pour j = 1 A 1000000
si W_T_Code[J]:Code = W_C_Val alors
sortir
FIN
FIN
W_C_HeureFin = Heuresys()
trace("S",i,heuredifference(W_C_HeureDeb,W_C_HeureFin))
// Zone mémoire
W_C_HeureDeb = Heuresys()
W_C_retour = Memrecherche(W_C_Zm,W_C_Val)
W_C_HeureFin = Heuresys()
trace("M",i,heuredifference(W_C_HeureDeb,W_C_HeureFin))
FIN
Memsupprimetout(W_C_Zm)
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=3782&post_id=15933