|
|
|
|
|
|
|
|
|
|
|
version 6.0
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.
Référence
|
|
|
|
|
|
|
|
|
|
|