[ok] Manque ou Bug dans CreatePreferenceGroup()

[Ar-S]

Ai-je loupé quelque chose ou est-ce impossible de créer un 'groupe' seul, sans préférences dans un fichier créé avec CreatePreference ??
En gros si vous testez le code suivant, celui n'écrit rien dans le fichier liste, mais si vous 'dé-commentez' la ligne 9, là ça fonctionne.

C'est très gênant pour moi, je fais un code n'utilisant que des noms de groupes pour créer une liste facilement gérable mais je suis obligé de créer aussi un champ de valeur ou de chaine bidon pour qu'il puisse s'écrire dans le fichier. Auriez vous une astuce ou dois-je faire avec ?

Code : Tout sélectionner

rep$=GetCurrentDirectory()
liste$="liste.txt"
Pref$=rep$+liste$
Global TOTO$

CreatePreferences(Pref$)
TOTO$="TOTO"
PreferenceGroup(TOTO$)
;WritePreferenceString("TOTO2","chaine bidon")
ClosePreferences()

NewList Apprec.s()
If OpenPreferences(Pref$)
  ExaminePreferenceGroups()
  While NextPreferenceGroup()
    AddElement(Apprec())
    Apprec()=PreferenceGroupName()
  Wend
  SortList(Apprec(), #PB_Sort_Ascending|#PB_Sort_NoCase )
  ForEach Apprec()
    Debug "Chaine TOTO$ : "+TOTO$ 
    Debug "Nom du groupe : "+Apprec()
    
  Next    
  ClosePreferences()
EndIf

[Guimauve]

Si le groupe n'existe pas, il ne sera pas immédiatement créé. Il sera créé uniquement lorsqu'au moins une clef sera écrite dans ce groupe. Ceci permet d'utiliser PreferenceGroup() pour tester si un groupe existe sans créé plein de groupes vides.

Ce n'est pas un manque ou un bogue, c'est de cette façon que la librairie préférences fonctionne.

A+
Guimauve

[Ar-S]

Arf j'avais loupé ce passage, c'est bien dommage pour mon appli mais je ferai avec.
Merci Guimauve.