 |
| |
rAjoutDansTabUnidimEntier / pages 11 et 58 / Compatible 4D 6.0 / MacOS et Windows
Deux versions sont présentées.
Première version
Méthode(s) appelée(s): -
Utilisation des constantes personnelles: non
Plug-in utilisé: -
-------------------------------------------------------------------------------------------------------------------
` Méthode: rAjoutDansTabUnidimEntier
` Extrait du Guide 4D v6.5 - volume 1
` © e-Node SA, 1999
` Tous droits de reproduction réservés
` Commande générique d'ajout d'un entier ou d'un entier long à la fin d'un
` tableau unidimensionnel ou d'une colonne de tableau bidimensionnel d'entiers ou
` d'entiers longs.
`
C_POINTEUR($1) ` pointeur d'un tableau unidimensionnel ou d'une colonne de tableau bidim
C_ENTIER LONG($2) ` valeur à ajouter
`
INSERER LIGNES($1->;Taille tableau($1->)+1) ` ajout d'une ligne en fin de tableau
$1->{Taille tableau($1->)}:=$2 ` l'élément est inscrit dans la ligne
-------------------------------------------------------------------------------------------------------------------
Deuxième version
Dans la deuxième version, un contrôle des paramètres est effectué. Le code a été simplifié par rapport à celui du livre (la forme présentée ici est celle adoptée pour les ALERTE PROGRAMMEUR dans le reste de l'ouvrage).
Méthode(s) appelée(s): y_BcontroleType
Utilisation des constantes personnelles: oui
Plug-in utilisé: -
-------------------------------------------------------------------------------------------------------------------
` Méthode: rAjoutDansTabUnidimEntier
` Extrait du Guide 4D v6.5 - volume 1
` © e-Node SA, 1999
` Tous droits de reproduction réservés
` Commande générique d'ajout d'un entier ou d'un entier long à la fin d'un
` tableau unidimensionnel ou d'une colonne de tableau bidimensionnel d'entiers ou
` d'entiers longs.
`
C_POINTEUR($1) ` pointeur d'un tableau unidimensionnel ou d'une colonne de tableau bidim
C_ENTIER LONG($2) ` valeur à ajouter
`
Au cas ou
: (Nombre de parametres#2) ` nombre de paramètres incorrect
ALERTE("ALERTE PROGRAMMEUR: il faut 2 paramètres dans rAjoutDansTabUnidimEntier")
TRACE
: (Non(y_BcontroleType ($1;Est un tableau entier ;Est un tableau entierlong ;(Masque colonne tableau bidim +Est un tableau entier );(Masque colonne tableau bidim +Est un tableau entierlong ))))
ALERTE("ALERTE PROGRAMMEUR: $1 incorrect dans rAjoutDansTabUnidimEntier")
TRACE
Sinon ` le type de $1 est correct
`
INSERER LIGNES($1->;Taille tableau($1->)+1) ` ajout d'une ligne en fin de tableau
$1->{Taille tableau($1->)}:=$2 ` l'élément est inscrit dans la ligne
Fin de cas
-------------------------------------------------------------------------------------------------------------------
| ||