TABLEAU POINTEUR

4D v15 R2

TABLEAU POINTEUR


TABLEAU POINTEUR ( nomTableau ; taille {; taille2} )

Paramètre	Type	Description
nomTableau	Tableau	Nom du tableau
taille	Entier long	Nombre d'éléments du tableau ou Nombre de tableaux si taille2 est spécifié
taille2	Entier long	Nombre d'éléments des tableaux à deux dimensions

Description

La commande TABLEAU POINTEUR crée ou redimensionne un tableau d'éléments de type Pointeur en mémoire.

Le paramètre nomTableau est le nom du tableau.
Le paramètre taille est le nombre d'éléments du tableau.
Le paramètre taille2 est optionnel. Si vous le spécifiez, cette commande crée un tableau à deux dimensions. Dans ce cas, taille spécifie le nombre de lignes et taille2 spécifie le nombre de colonnes de chaque tableau. Chaque ligne dans un tableau à deux dimensions peut être traitée à la fois comme un élément et comme un tableau. Cela signifie que vous pouvez insérer et supprimer des tableaux entiers dans un tableau à deux dimensions, par l'intermédiaire des autres commandes de ce thème, lorsque vous travaillez avec la première dimension du tableau.

Lorsque vous appliquez la commande TABLEAU POINTEUR à un tableau existant :

Si vous agrandissez sa taille, les éléments existants ne sont pas modifiés, les nouveaux éléments sont initialisés à un pointeur nul (ce qui signifie que la fonction Nil appliquée à l'un de ces éléments retourne Vrai).
Si vous réduisez sa taille, les éléments du "bas" du tableau sont supprimés et perdus.

Exemple 1

Cet exemple crée un tableau process contenant 100 éléments de type Pointeur :

TABLEAU POINTEUR(tabPointeurs;100)

Exemple 2

Cet exemple crée un tableau local de 100 lignes contenant chacune 50 éléments de type Pointeur :

TABLEAU POINTEUR($tabPointeurs;100;50)

Cet exemple crée un tableau interprocess d'éléments de type Pointeur dont la taille est égale au nombre de tables dans la base et remplit chaque élément pointant vers la table dont le numéro est le même que celui de l'élément. Dans la cas d'une table supprimée, la ligne retournera Nil.

 TABLEAU POINTEUR(<>tabPointeurs;Lire numero derniere table)

 Boucle($vElem;Taille tableau(<>tabPointeurs);1;-1)

    Si(Est un numero de table valide($vElem))

       <>tabPointeurs{$vElem}:=Table($vElem)

    Fin de si

 Fin de boucle

4D v15 R2

TABLEAU POINTEUR