BUG: NextPreferenceGroup() ?

[Pelagio]

Hallo Leute,
Ich habe PB 4.01 und wollte jetzt eine kleine DB mit Hilfe von Preferencen erstellen, dies habe ich schon einmal unter PB 4.0 gemacht. Jetzt allerdings merke ich das trotz des Befehls NextPreferenceGroup() immer nur die erste Gruppe übernommen wird:

Code: Alles auswählen

If OpenPreferences(#mainFileName + #dbEndung)
      If ExaminePreferenceGroups()
         While (NextPreferenceGroup()=#False)
            AddElement(ID()): ID() = PreferenceGroupName()
         Wend
         ForEach ID(): Debug ID(): Next
      EndIf
      ClosePreferences()
EndIf

Ich glaube dies ist ein neu eingeschlichener BUG, lasse mich aber gerne eines besseren belehren.

[ts-soft]

Warum vergleichste mit 0?

Code: Alles auswählen

NewList ID.s()

If OpenPreferences(#PB_Compiler_Home + "Tools.Prefs")
  If ExaminePreferenceGroups()
    While (NextPreferenceGroup() = #True)
      AddElement(ID()): ID() = PreferenceGroupName()
    Wend
    ForEach ID(): Debug ID(): Next
  EndIf
  ClosePreferences()
EndIf

[Pelagio]

Tschuldigung ,

Ich habe MEINEN Fehler gefunden, es waren mehrerer Fehler die zu meiner Fehlinterpretation führten.
Der Befehl NextPreferenceGroup() funktioniert.......

[ts-soft]

Tschuldigung

Jetzt übertreibste aber, Fehler sind beim Programmieren normaller Alltag

[Kiffi]

Tschuldigung ,

zur Strafe darfst Du nun den Titel Deines Threads umbenennen.

Grüße ... Kiffi