TABLEAU IMAGE

version 5

TABLEAU IMAGE (nomTableau; taille{; taille2})

La commande TABLEAU IMAGE crée et/ou redimensionne un tableau d'éléments de type Image 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 IMAGE à un tableau existant :

• Si vous agrandissez sa taille, les éléments existants ne sont pas modifiés, les nouveaux éléments sont initialisés à une image vide (ce qui signifie que la fonction Taille image appliquée à l'un de ces éléments retourne 0).

• Si vous réduisez sa taille, les éléments du "bas" du tableau sont supprimés et perdus.

(1) Cet exemple crée un tableau process contenant 100 éléments de type Image :

   TABLEAU IMAGE (tabImages; 100)

(2) Cet exemple crée un tableau local de 100 lignes contenant chacune 50 éléments de type Image :

   TABLEAU IMAGE ($tabImages;100;50)

(3) Cet exemple crée un tableau interprocess d'éléments de type Image. La taille du tableau est égale au nombre de ressources 'PICT' dont le nom commence par "Utilisateur Intf/" disponibles dans la base. Chaque image est chargée dans un élément du tableau :

   LISTE RESSOURCES ("PICT";$aiResIDs;$asResNoms)
   TABLEAU IMAGE (<>tabImages;Taille tableau($aiResIDs))
   $vlPictElem:=0
   Boucle ($vlElem;1;Taille tableau(<>tabImages))
      Si ($asResNoms{$vlElem}="Utilisateur Intf/@")
         $vlPictElem:=$vlPictElem+1
         LIRE RESSOURCE IMAGE("PICT";$aiResIDs{$vlElem};$vgImage)
         <>tabImages{$vlPictElem}:=$vgImage
      Fin de si
   Fin de boucle
   TABLEAU IMAGE (<>tabImages;$vlPictElem)