Einzelnen Beitrag anzeigen

Benutzerbild von Stevie
Stevie

Registriert seit: 12. Aug 2003
Ort: Soest
3.842 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#13

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

  Alt 4. Mai 2021, 07:16
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;
Stefan
“Simplicity, carried to the extreme, becomes elegance.” Jon Franklin

Delphi Sorcery - DSharp - Spring4D - TestInsight
  Mit Zitat antworten Zitat