Wie umschreibe ich "For N in P" für alte Delphi's ?

[KodeZwerg]

Zitat von myicq:

Hallo alle,
Meine Frage : wir umschreibe ich die Enumeration, damit JsonToXml geht ? Ich vermisse Funktionen / Procedures im Record, und "For N in P" später.

Es wäre gut die Problemstelle zu Zeigen da ich nicht so ganz aus Deiner Frage schlau werde.
Zumindest sei gesagt "For N in P" könnte man per iteration über P und vergleich auf gleichheit mit N "übersetzen" oder ob "P" "N" enthält, eines von beiden.
Ne, nochmal... iteration über P (alle elemente durchgehen) und wenn ein element "N" hat = mach was.

[DeddyH]

Ich habe den Code nur überflogen, aber mit TJSONNode.GetEnumerator solltest Du Dir den zugeordneten Enumerator holen können. Diesen gehst Du einfach durch und solange Current Assigned ist, kannst Du die entsprechenden TJSONNode abarbeiten und dann mit MoveNext des Enumerators zum nächsten Node wechseln.

[himitsu]

Das For-In nimmt sich implizit den implementierten Enumerator oder einen Default-Enumerator (z.B. bei Arrays).

Natürlich kannst du auch selber das GetEnumerator aufrufen und dann eine While-Schleife benutzen.
Oder schauen, ob es ein Array-Property für die Items gibt und dann da mit normalem For und Index durchlaufen.

Oder auf die "etwas" aktuellere Community-Edition upgraden.