Json Array of String: Wie Array-Items per Schleife auslesen

[juergen]

@mytbo,
Clonen des Repos.
Pfade in den Bibliothekspfaden hinzugefügt.
Ich hatte ja schon meine Unit mit 8 Klassen. Diese Unit mit deinen Vorschlägen für den Custom-Serializer ergänzt (erst einmal nur für 2 Klassen).
Was soll ich sagen. Es funktioniert! :thumb: Ich bin begeistert. Und das war jetzt auch schnell umgesetzt. Natürlich verstehe ich mORMot nicht, in der Kürze der Zeit. Aber ich habe erst mal ein Ergebnis und das motiviert ja für die Zukunft.

Was mir bei diesem Ansatz gefällt (ich sag's mal als Laie), dass ich eine Unit habe mit den Klassen und der Architektur.
In meiner Hauptunit verwende ich dann global jeweils für jede Klasse eine neue Klassen-Instanz.
Und in der Haupt-Unit gefällt mir nun die Handhabung sehr. Zumindest ist es für mich viel leichter anwendbar und lesbarer.

Vielen Dank also für deinen unermüdlichen Einsatz!!

@Uwe,
auch dir großen Dank für deinen unermüdlichen Einsatz. Ich hatte vor deinem Post schon das Konzept von mytbo angefangen.


Gute N8! :dp:

[juergen]

Eine Frage noch:
Symbolisch sieht meine serialize-Klasse etwa so aus:

Delphi-Quellcode:

  TDBSettings = CLASS( TSynAutoCreateFields )
  PRIVATE
    FShorthandSymbol: ARRAY [1 .. 80] OF STRING;

    PROCEDURE SetShorthandSymbol( CONST AIdx: Integer; CONST Value: STRING );
    FUNCTION GetShorthandSymbol( CONST AIdx: Integer ): STRING;

  PUBLIC
    CONSTRUCTOR Create;  // <=== hier erscheint Warnung: W1010 Methode 'Create' verbirgt virtuelle Methode vom Basistyp 'TSynAutoCreateFields'
    DESTRUCTOR Destroy; OVERRIDE;

    FUNCTION LoadFromFile( CONST pmcFileName: TFileName ): Boolean;
    PROCEDURE SaveToFile( CONST pmcFileName: TFileName );

    PROPERTY ShorthandSymbol[CONST AIdx: Integer]: STRING READ GetShorthandSymbol WRITE SetShorthandSymbol;
  END;

Bekomme ich hier die Warnmeldung noch weg?

[DeddyH]

Entweder mit override oder, falls das nicht geht, mit reintroduce.

[juergen]

@DeddyH,
vielen Dank. :thumb:
Ich habe jetzt reintroduce verwendet.
Dazu habe ich noch folgende hilfreiche Seite gefunden => Methoden

[juergen]

Nächstes Problem:
Ich kann in einer anderen Unit nicht auf das Property "ShorthandSymbol" zugreifen, wohl weil die Klasse von "TSynAutoCreateFields" abgeleitet ist.

Delphi-Quellcode:

  TDBSettings = CLASS( TSynAutoCreateFields )
  PRIVATE
    FShorthandSymbol: ARRAY [1 .. 80] OF STRING;

    PROCEDURE SetShorthandSymbol( CONST AIdx: Integer; CONST Value: STRING );
    FUNCTION GetShorthandSymbol( CONST AIdx: Integer ): STRING;

  PUBLIC
    CONSTRUCTOR Create; REINTRODUCE;
    DESTRUCTOR Destroy; OVERRIDE;

    FUNCTION LoadFromFile( CONST pmcFileName: TFileName ): Boolean;
    PROCEDURE SaveToFile( CONST pmcFileName: TFileName );

    PROPERTY ShorthandSymbol[CONST AIdx: Integer]: STRING READ GetShorthandSymbol WRITE SetShorthandSymbol;
  END;

Wie bekommt man das denn noch hin?

[Uwe Raabe]

Zitat:

Zitat von juergen (Beitrag 1527134)

Ich kann in einer anderen Unit nicht auf das Property "ShorthandSymbol" zugreifen, wohl weil die Klasse von "TSynAutoCreateFields" abgeleitet ist.

Wie äußert sich das denn genau?

[juergen]

Zitat:

Zitat von Uwe Raabe (Beitrag 1527135)

Wie äußert sich das denn genau?

Also wenn ich in der Haupt-Unit hinter dem Namen der Klasse "TDBSettings" einen Punkt eingebe, um dann dort "ShorthandSymbol" auszuwählen, ist dies nicht auffindbar. Die Klassen-Unit ist in der Haupt-Unit unter uses eingebunden.
Die Editormeldung lautet demzufolge: E2233 Auf Eigenschaft 'ShorthandSymbol' kann hier nicht zugegriffen werden

[jaenicke]

Zitat:

Zitat von juergen (Beitrag 1527137)

Also wenn ich in der Haupt-Unit hinter dem Namen der Klasse "TDBSettings" einen Punkt eingebe, um dann dort "ShorthandSymbol" auszuwählen, ist dies nicht auffindbar.

Das ist auch keine Klasseneigenschaft. Du brauchst erst einmal eine Variable vom Typ TDBSettings. Darin sollte die Property dann nutzbar sein.

[juergen]

:oops::oops::wall::wall: Natürlich!
Danke, @jaenicke