Zuweisung von Feldwerten - Optimierung

[lowmax_5]

Hallo,

ich habe mir eine Funktion gebaut, um Werte zuzuweisen

Code:

Verbinde(lArtikel.artikelbez,'artikelbez',(JA.Items[x] as TJsonObject),'');

in dem ich das Feld der Klasse lArtikel mit dem gleichnamigen Feld in einem TJsonobject anbinde.

Was mich stört ist die doppelte Angabe von 'artikelbez', da ja in der Regel immer der gleiche Name angebunden wird.
Kann auf die Angabe des zweiten Parameters verzichtet werden? Wie lässt sich das eleganter lösen?

[Jasocul]

Zitat von lowmax_5:

... da ja in der Regel immer der gleiche Name angebunden wird.

In der Regel? Also doch nicht immer?
Dann würde ich es so lassen.
Ansonsten musst du vermutlich über die RTTI gehen. Es gibt da meines Wissens eine Funktion GetPropInfo. Es muss aber noch einige beachtet werden, damit es funktioniert. Keine Ahnung, ob sich der Aufwand lohnt.

[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