Discussion :

[gbardy]

Bonjour,

Je voudrais savoir s'il existe une quelconque possibilité d'allocatio dynamique dans 4D. J'ai besoin de récupérer des informations dans un fichier. Ces informations, je veux les mettre en mémoire selon une certaine structure et pour cela je pense utiliser des tableaux de pointeurs. Première question : comment récupérer la valur pointée par un élément du tableau de pointeur ?
Deuxième question : comment faire pour mémoriser la valeur d'une variable (grâce à un pointeur) dont la valeur va être modifiée ensuite (on veut que le pointeur garde la valeur précédent) = allocation dynamique en C

Je sais que mon exposé n'est peut être pas très clair, n'hésitez pas à me poser des questions et je clarifierai le point flou.
Merci d'avance

[ckeromen]

Je ne connais pas le CD et je n'ai effectivement pas tout compris à ta demande :-)

Une première remarque issue de quelques années d'expérience : n'essaye de plier 4D à ta logique ou de lui faire reproduire le fonctionnement d'un autre langage ou environnement. Tu vas perdre du temps, tu ne seras pas satisfait du résultat et tu pesteras contre 4D. Pose le problème en teme d'objectifs et cherche les outils 4D les plus adaptés pour réaliser ces objectifs.

Il est effectivement possible de gérer des tableaux de pointeurs :
C_Entier(MonEntier1;MonEntier2)
C_Date(MaDate1;MaDate2)
C_Texte(MonTexte1;MonTexte2)
MonTexte2:="toto"

Tableau pointeur(MonTabPteur;5)
MonTabPteur{1}:=->MonEntier1
MonTabPteur{2}:=->MonEntier2
MonTabPteur{3}:=->MonTexte1
MonTabPteur{4}:=->MaDate1
MonTabPteur{5}:=->MonTexte2

...
MonTabPteur{2}->:=2 `MonEntier2 vaut 2
MonTabPteur{3}->:=MonTabPteur{5}-> `MonTexte1 vaut "toto"

MonTabPteur{4}:=->MonTexte2

En revanche, dans 4D pas de possibilité (hors tripatouillage des BLOBs) de définir des tableaux associatifs hétérogènes, genre=:
Tableau associatif(MonTab;3)
MonTab["CP"]:=75001
MonTab["Ville"]:="Paris"
MonTab["Arrdondissement"]:=MonTabArr
tu vois ce que je veux dire ?

Il faut utiliser des outils complémentaires, style le plugin ObjectTools :
http://www.aparajitaworld.com/site/p...s/ObjectTools/

[gbardy]

Merci, mais ca c'est bon je maîtrise maintenant. Et je ne souhaite pas mélanger des types différents au sein d'un même tableau.
En fait je cherche une solution me permettant de faire de l'allocation dynamique.

Genre on a un tableau de pointeur d'une certaine taille. Je veux pouvoir l'agrandir d'une case par exemple (grace à Tableau Pointeur(nomVar; TailleTableau(nomVar)+1), ca je sais aussi) et faire pointer ce pointeur vers un nouveau tableau de pointeur.

Ca c'est tres facile statiquement (si je sais à l'avance que j'ai à le faire un certain nombre de fois, je crée mes tableaux de pointeurs avec des noms de variable et tout et tout et je fais pointer les cases de mon premier tableau dessus au fur et à mesure).

Par contre si au lancement du programme je ne sais pas encore combien je vais nécessiter de tableaux (contexte dynamique donc), la je n'ai aucune solution, c'est ca "l'allocation dynamique". Car là je ne peux "générer des noms" pour mes nouveaux tableaux de pointeurs (j'ai essayé de bricoler pour créer des noms de variable à partir de chaînes de caractères, ça ne fonctionne pas), du coup je suis bloqué.

Et je ne désire pas plier 4D a ce que je veux : c'est 4D par ses choix qui est très limitatif : proposer des pointeurs sans permettre l'allocation dynamique c'est ne pas avoir compris leur réel intérêt

[gbardy]

Finalement j'ai réussi à trouver une solution en bidouillant.
Apparemment ce n'est possible de compiler ainsi, mais ne interpreté cela fonctionne

voilà le code :
`méthode allouer
`prend en paramètre une chaine qui correspondra au début du nom du tableau alloué
`auquel on concatènera un entier incrémenté à chaque appel de la méthode.
`ainsi on aura un nom unique pour chaque tableau.
`on retourne ensuite un pointeur vers ce tableau, pour pouvoir le manipuler
Increment:=Increment+1
$ptr:=Pointeur vers($1+Chaine(Increment))
Au cas ou
: $3="pointeur"
TABLEAU POINTEUR($ptr->;$2)
: $3="chaine"
TABLEAU ALPHA(60;$ptr->;$2)

Fin de cas
$0:=$ptr

`=================================================

`méthode libérer
`détruit tous les tableaux alloués (met leur taille à zéro) dont le nom correspond à la concaténation de l'entier incrémenté
`et de la chaine passée en paramètre

Boucle ($i;Increment;1;-1)
$ptr:=Pointeur vers($1+Chaine($i))
TABLEAU POINTEUR($ptr->;0)
Fin de boucle

`===================================================

Merci de votre aide