Für ältere Delphi Versionen kann ich klar NEIN sagen. Eine Funktion wie z.B. TArtikel.ArtikelBez.PropName gibt es dort nicht. Ich löse es wie folgt:
Delphi-Quellcode:
TArtikel = class(TPersistent)
strict private
type
TOPNRec = record
const ArtikelBez = 'ArtikelBez';
...
end;
public
const OPN: TOPNRec = ();
...
end;
Dann kannst du folgendes schreiben:
Verbinde(lArtikel.ArtikelBez, TArtikel.OPN.ArtikelBez, (JA.Items[x] as TJsonObject), '');
Der klare Vorteil ist, du wirst von der
IDE beim Schreiben unterstützt und der Compiler verhindert eventuelle Tippfehler weit verstreut im Sourcecode.
Bis bald...
Thomas