![]() |
Wie umschreibe ich "For N in P" für alte Delphi's ?
Liste der Anhänge anzeigen (Anzahl: 1)
Hallo alle,
ich benutzt leider immer noch D6. Letztens hatte ich eine JSON-Library nötig, und entdeckte ![]() Leider bin ich nicht ganz am Ziel. Meine Frage : wir umschreibe ich die Enumeration, damit JsonToXml geht ? Ich vermisse Funktionen / Procedures im Record, und "For N in P" später. Ergebniss so weit im Anhang. NOTE: die Funktion ist für mich nicht absolut wichtig, bin halt nur neugierig.. |
AW: Wie umschreibe ich "For N in P" für alte Delphi's ?
Zitat:
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. |
AW: Wie umschreibe ich "For N in P" für alte Delphi's ?
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.
|
AW: Wie umschreibe ich "For N in P" für alte Delphi's ?
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. |
AW: Wie umschreibe ich "For N in P" für alte Delphi's ?
Zitat:
|
AW: Wie umschreibe ich "For N in P" für alte Delphi's ?
Delphi-Quellcode:
ggf noch in nen try finally drumrum, je nachdem, was enumerator fürn typ ist - damit dann noch ein Free folgt.
var
e: enumerator; v: value; begin e := list.getenumerator; while e.movenext do begin v := e.getvalue; // mach was mit v end; |
AW: Wie umschreibe ich "For N in P" für alte Delphi's ?
Hallo,
und ev. aufpassen/prüfen, ob list.getenumerator nicht schon auf dem ersten Listenelement steht. Dann wäre es statt der while- eine repeat/until Schleife. |
AW: Wie umschreibe ich "For N in P" für alte Delphi's ?
Kann nicht sein, denn sonst könnte man eine leere Liste nicht erkennen.
|
AW: Wie umschreibe ich "For N in P" für alte Delphi's ?
jupp, ein Enumerator muß immer vor dem ersten Item initialisiert sein (quasi Index = -1), also das 1. Item erst beim ersten MoveNext.
|
AW: Wie umschreibe ich "For N in P" für alte Delphi's ?
Danke für die Antworte. Jetzt muss ich nur noch die Enumerator selber auch umschreiben, da ich bei D6 under Records keine "function XYZ" oder "proceudure ZYA" haben kann.. Ja, ich hätte mich auch was besseres gewünscht als D6. Ist aber beruflich, und ich Pflege eine 20 Jahre codebase.
Ich aktualisiere mein Code wenn alles iO ist. |
AW: Wie umschreibe ich "For N in P" für alte Delphi's ?
Mit Delphi 2006/2007 kannst auch noch Altcode pflegen ... das waren die letzten Versionen mit ANSI. (ab D2009 Unicode und später noch mal andere "größere" Änderungen)
Wenn man Delphi kauft, dann bekommt man gratis Lizenzen für alte Versionen (D7, D2007 und Neuer ... vor D7 kann aber Embarcadero nicht unterstützen, da sie die Rechte dafür nicht besitzen) |
AW: Wie umschreibe ich "For N in P" für alte Delphi's ?
Liste der Anhänge anzeigen (Anzahl: 1)
Geschafft (fast) :)
DANKE an alle die geholfen haben. Die Lösung für mich war: * erst die numerator als `class`statt `record` zu haben * dann die numerator mit create erstellen * und eine einfache while.. loop benutzen. Code im Anhang. Geht, und kann auch XML. Unterstützt zwar nicht unicode / Widestrings (währe schön), aber ist dafür einfach, und self-contained. Ich kann damit auch JSONPath benutzen, zB shipto/zip oder path/to/array/4 für element #5. Code im Anhang. |
AW: Wie umschreibe ich "For N in P" für alte Delphi's ?
Wenn du aus TJsonNodeEnumerator ein Interface machst, dann brauchst du dich nicht um das Erzeugen und Freigeben kümmern sondern kannst einfach GetEnumerator nutzen, was derzeit nicht geht, da es defekt ist (erzeugt die Instanz nicht)
Mal kurz hingeschludert:
Delphi-Quellcode:
IJsonNodeEnumerator = interface
function GetCurrent: TJsonNode; function MoveNext: Boolean; property Current: TJsonNode read GetCurrent; end; TJsonNodeEnumerator = class(TInterfacedObject, IJsonNodeEnumerator) private FNode: TJsonNode; FIndex: Integer; public constructor Create(Node: TJsonNode); function GetCurrent: TJsonNode; function MoveNext: Boolean; property Current: TJsonNode read GetCurrent; end; ... function TJsonNode.GetEnumerator: IJsonNodeEnumerator; begin Result := TJsonNodeEnumerator.Create(Self); end; |
AW: Wie umschreibe ich "For N in P" für alte Delphi's ?
Zitat:
|
AW: Wie umschreibe ich "For N in P" für alte Delphi's ?
Nach dem du ja jetzt eine funktionierende Lösung zu haben scheinst die Frage,
warum du noch auf D6 bist. Das eine oder andere wäre in neueren Versionen ja schon einfacher, moderner, bequemer etc. |
AW: Wie umschreibe ich "For N in P" für alte Delphi's ?
Zitat:
Ich werde demnächt umsteigen. Aber, genieße auch das D6 mehrfach schneller kompiliert als D10. Zuletzt bin ich auch nur Hobbyprogrammierer, ich lerne soviel ich kann. Danke für die Mitleid trotzdem ;) |
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:17 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz