4D v14.3

Tableaux à deux dimensions

Accueil

 
4D v14.3
Tableaux à deux dimensions

Tableaux à deux dimensions  


 

 

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.

 
PROPRIÉTÉS 

Produit : 4D
Thème : Tableaux
Nom intl. : Two-dimensional Arrays

 
VOIR AUSSI  

Présentation des tableaux

 
UTILISATION DE L'ARTICLE

4D - Langage ( 4D v11 SQL Release 6)
4D - Langage ( 4D v12.4)
4D - Langage ( 4D v14 R2)
4D - Langage ( 4D v14 R3)
4D - Langage ( 4D v13.5)
4D - Langage ( 4D v14.3)
4D - Langage ( 4D v14 R4)