Tableaux à deux dimensions

4D v20 R7

Chaque commande de déclaration de tableau permet de créer ou de redimensionner des tableaux à une ou à deux dimensions. Exemple :

TABLEAU TEXTE(atTopics;100;50) ` Créer un tableau texte composé de 100 lignes de 50 colonnes

Les tableaux à deux dimensions sont essentiellement des objets de langage ; vous ne pouvez ni les afficher ni les imprimer.

Dans l'exemple prédédent :

atTopics est un tableau à deux dimensions.
atTopics{8} {5} est le 5e élément (5e colonne...) de la 8e ligne.
atTopics{20} est la 20e ligne et est elle-même un tableau à une dimension.
Taille tableau(atTopics) retourne 100, qui est le nombre de lignes
Taille tableau(atTopics{17}) retourne 50, qui est le nombre de colonnes de la 17e ligne

Dans l'exemple suivant, un pointeur vers chaque champ de chaque table de la base est stocké dans un tableau à deux dimensions :

 C_ENTIER LONG($vlDerniereTable;$vlDernierChamp)

 C_ENTIER LONG($vlNumeroChamp)

  ` Créer autant de lignes (vides et sans colonnes) qu'il y a de tables

 $vlDerniereTable:=Lire numero derniere table

 TABLEAU POINTEUR(<>apChamps;$vlDerniereTable;0) `Tableau 2D avec N lignes et zéro colonnes

  ` Pour chaque table

 Boucle($vlTable;1;$vlDerniereTable)

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

       $vlDernierChamp:=Lire numero dernier champ($vlTable)

  ` Donner la valeur des éléments

       $vlNumeroColonne:=0

       Boucle($vlChamp;1;$vlDernierChamp)

          Si(Est un numero de champ valide($vlTable;$vlChamp))

             $vlNumeroColonne:=$vlNumeroColonne+1

  `Insère une colonne dans la ligne de la table en cours

             INSERER DANS TABLEAU(<>apChamps{$vlTable};$vlNumeroColonne;1)

  `Affecte la "celulle" avec le pointeur

             <>apChamps{$vlTable}{$vlNumeroColonne}:=Champ($vlTable;$vlChamp)

          Fin de si

       Fin de boucle

    Fin de si

 Fin de boucle

Dans la mesure où le tableau à deux dimensions a été initialisé, vous pouvez obtenir ainsi les pointeurs vers les champs d'une table de votre choix :

  ` Obtenir les pointeurs vers les champs pour la table affichée à l'écran:

 COPIER TABLEAU(◊apChamps{Table(Table du formulaire courant)};$apMesChampsdeTravail)

  ` Initialiser les champs booléens et date

 Boucle($vlElem;1;Taille tableau($apMesChampsdeTravail))

    Au cas ou

       :(Type($apMesChampsdeTravail{$vlElem}->)=Is Date)

          $apMesChampsdeTravail{$vlElem}->:=Date du jour

       :(Type($apMesChampsdeTravail{$vlElem}->)=Is Boolean)

          $apMesChampsdeTravail{$vlElem}->:=Vrai

    Fin de cas

 Fin de boucle

Note : Comme le montre cet exemple, les lignes des tableaux à deux dimensions peuvent être ou non de la même taille, indifféremment.

Voir aussi

Présentation des tableaux