Registriert seit: 10. Jan 2005
Ort: Bönen
1.172 Beiträge
Delphi 11 Alexandria
|
AW: Json Array of String: Wie Array-Items per Schleife auslesen
20. Sep 2023, 11:16
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?
Jürgen Indes sie forschten, röntgten, filmten, funkten, entstand von selbst die köstlichste Erfindung: der Umweg als die kürzeste Verbindung zwischen zwei Punkten. (Erich Kästner)
Geändert von juergen (20. Sep 2023 um 11:21 Uhr)
|