Merci beaucoup. J'avais observé cela mais je craignais que cela soit
une bidouille pas fiable qui risquerait de ne pas avoir de
compatibilité avec une version future de Realbasic. Cette pratique
suppose donc que le fait de créer un nouveau dictionnaire de même nom
dans une boucle n'affecte pas les instances précédentes ? Ce n'est
pas très orthodoxe mais si c'est la méthode à utiliser, je l'adopte
sur le champ.
Merci encore.
Powel
Le 31 juil. 07 à 13:00, olivier corouge a écrit :
Powel wrote:
Ex :
Dim selection As RecordSet
Dim n As Integer
Dim sites As new Dictionary
Dim site As new Dictionary
selection=App.db_select(false, "Select id, noms, base From sites
Where is_rss=1 and base='"+app.db_tag+"'", "Selectionne la liste
des sites", true)
n=0
While not selection.EOF
n=n+1
site.Value("id")=selection.Field("id").Value
site.value("nom")=selection.Field("noms").Value.DefineEncoding
(Encodings.UTF8) site.Value("base")=selection.Field("base").Value
sites.value(n)=site
selection.MoveNext
Wend
modifie :
Dim site As new Dictionary
en
Dim site As Dictionary
et ajoute entre le while et n = n + 1
site = new Dictionnary
Les instances de class sont toujours passées par référence.
Cordialement,
Olivier Corouge
--
Olivier Corouge
Support Technique en Français
olivier at realsoftware dot fr - http://www.realsoftware.fr
|