Zuweisung von Feldwerten - Optimierung

[mytbo]

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