Test de la class Array
TestArray()
Pas de paramètre
Pas de retour
Fonction fabriquée dans MenuTest.cfm
*
* -----------------------------------------------------------------
FUNCTION TestArray
* -----------------------------------------------------------------
*
SET PROCEDURE TO AfficheTexte.CC ADDITIVE
*
LOCAL I, ; && Variable de comptage.
oA, ; && Objet d'affichage.
oT && Tableau.
*
oA = new AfficheTexte("Test de la classe Array",10,20,25,120)
oA.Ajoute("Entrée dans le programme")
*
oT = new Array()
oT.resize(1,2)
oA.Ajoute("Nombre d'éléments :" + STR(oT.size,10,2))
*
oT[1,1] = "Ligne 01, Colonne 1"
oT[1,2] = "Ligne 01, Colonne 2"
*
FOR I = 1 TO oT.size/2
oA.Ajoute(oT[I,1]+" -> "+oT[I,2])
ENDFOR
*
oT.resize(2,2)
oA.Ajoute("Nombre d'éléments :" + STR(oT.size,10,2))
*
oT[2,1] = "Ligne 02, Colonne 1"
oT[2,2] = "Ligne 02, Colonne 2"
*
FOR I = 1 TO oT.size/2
oA.Ajoute(oT[I,1]+" -> "+oT[I,2])
ENDFOR
*
Tableau2Plus1(oT,"Ligne 03, Colonne 1","Ligne 03, Colonne 2")
oA.Ajoute("Nombre d'éléments :" + STR(oT.size,10,2))
*
FOR I = 1 TO oT.size/2
oA.Ajoute(oT[I,1]+" -> "+oT[I,2])
ENDFOR
*
oA.Ajoute("Fin du programme, fermer la fenêtre avec X en haut à droite")
*
CLOSE PROCEDURE AfficheTexte.CC
*
RETURN
