Wie *schnell* auf Properties anhand eines String-Bezeichners zugreifen?

[BlueStarHH]

Hallo,

ich habe ein Liste die mehrere simple Objekt enthält. Diese Objekt besitzen sehr viele Properties, um Daten zu speichern:

Delphi-Quellcode:

 TMyDataObj = class(TObject)
  private
    ...
  public
    property ValueA: string read ValueA write ValueA;
    property ValueB: string read ValueB write ValueB;
    property ValueC: string read ValueC write ValueC;
    ...
  end;

Ich benötige nun eine Funktion, der ich einen Feldnamen übergebe, anhand dessen dann der Wert einer bestimmten Property zurückgegeben werden soll. Beispielsweise GetFieldValue(ADataObj, 'MeinFeldX')

Mein Code dazu:

Delphi-Quellcode:

procedure GetFieldValue(ADataObj: TMyDataObj; const FieldName: string): string;
begin
  if AnsiSameText(FieldName, 'Wert1') then
    result := ADataObj.ValueA
  else if AnsiSameText(FieldName, 'MeinFeldX') then
    result := ADataObj.ValueB
  if AnsiSameText(FieldName, 'Feld7') then
    result := ADataObj.ValueC
end;

Wie man sieht brauche ich pro Property einen String-Vergleich. Der FieldName stimmt nie mit dem Namen der Propery überein. Wenn das ganze nun für viele Felder und sehr viele Objekte in einer verschachtelten Schleife aufgrufen wird, dauert die Ausführung zu lange. Da die String-Vergleiche für jedes Objekt wieder und wieder ausgeführt werden. Wie kann ich das schneller hinbekommen? Kann man die Verknüpfung vom String-Feldname zur Property nicht irgendwie speichern, nach dem sie das erste mal ermittelt wurde? Wenn ich so Objekte identifizieren wollte, würde ich diese in einem TDictionary<AObjectName,AObject> speichern. Das geht aber nicht mit properties oder doch?

[freimatz]

Mit properties geht das nicht, aber mit den Gettern sollte das gehen.

[Nersgatt]

Ich würde die ganzen Properties zu einer Liste zusammen fassen. Vielleicht würde sich ein TDictionary<String,String> anbieten. Da kannst Du dann sehr schnell auf die Werte Anhand des Bezeichners zugreifen.

[BlueStarHH]

Zitat:

Zitat von Nersgatt (Beitrag 1436296)

Ich würde die ganzen Properties zu einer Liste zusammen fassen. Vielleicht würde sich ein TDictionary<String,String> anbieten. Da kannst Du dann sehr schnell auf die Werte Anhand des Bezeichners zugreifen.

Das geht nicht, da es nicht nur Strings sind und es auch Getter und Setter mit benötigter Funktion dahinter gibt... Außerdem gibt es viele Codestellen, wo ich direkt auf die Properties ohne den Umweg über den String-Feldnamen zugreifen möchte. Denn das ist die schnellste Möglichkeit (wenn sie möglich ist).

[BlueStarHH]

Zitat:

Zitat von freimatz (Beitrag 1436295)

Mit properties geht das nicht, aber mit den Gettern sollte das gehen.

Wie? *Kopfkratz*

[Nersgatt]

Vielleicht dann ein TDictionary mit dem String als Schlüssel machen und als Wert einen Pointer auf den Getter bzw. Setter speichern?

[BlueStarHH]

Zitat:

Zitat von Nersgatt (Beitrag 1436300)

Vielleicht dann ein TDictionary mit dem String als Schlüssel machen und als Wert einen Pointer auf den Getter bzw. Setter speichern?

Wenn es ein Pointer ist, ist es dann der selbe Pointer für alle Instanzen von meinem Daten-Objekt oder muss ich für jedes Daten-Objekt die Pointer speichern? Dann müsste ich wieder pro Instanz von meinem Daten-Objekt die Namensvergleiche ausführen um die Verbindung von Namen zum Pointer zu finden. Das würde keinen Vorteil bringen, da ich die Felder nur ein mal pro Objekt abfrage...

[Nersgatt]

In dem Fall bringt es in der Tat nichts.
Würdest Du für jede Instanz x-mal die Sachen abfragen, würde es sich ggf. lohnen, die Liste zu füllen. Aber bei den Voraussetzungen nicht, das stimmt.

[Delphi.Narium]

Delphi-Quellcode:

uses
    ..., TypInfo, ...

function  HasProperty(AClass : TObject; APropertyName : String) : Boolean;
begin
  Result := Assigned(GetPropInfo(AClass.ClassInfo, APropertyName));
end;

...
  if HasProperty(ADataObj, 'ValueA') then begin
    try
      if GetStrProp(ADataObj, 'ValueA') = sName then begin
        SetStrProp(ADataObj, 'ValueA', '');
      end else
      // Analog zu Get- / SetStrProp gibt es weitere Routinen, die Du typabhängig nutzen kannst.
      ...
    except
      on e : Exception do MessageDlg(e.Message,mtErrr,[mbOk],0);
    end;
  end;
...

Daraus könnte sowas (nur hingedaddelt) werden:

Delphi-Quellcode:

function  HasProperty(AClass : TObject; APropertyName : String) : Boolean;
begin
  Result := Assigned(GetPropInfo(AClass.ClassInfo, APropertyName));
end;

procedure GetFieldValue(ADataObj: TMyDataObj; const FieldName: string): string;
begin
  if HasProperty(ADataObj, Fieldname) then result := GetStrProp(ADataObj, FieldName) else result := '?';
end;

... oder ...

procedure GetFieldValue(ADataObj: TMyDataObj; const FieldName: string): string;
begin
  Result := ifThen(HasProperty(ADataObj, Fieldname),GetStrProp(ADataObj, FieldName),'');
end;

... oder ...

procedure GetFieldValue(ADataObj: TMyDataObj; const FieldName: string): string;
begin
  Result := ifThen(Assigned(GetPropInfo(ADataObj.ClassInfo, Fieldname)),GetStrProp(ADataObj, FieldName),'');
end;

[Mavarik]

Zitat:

Zitat von BlueStarHH (Beitrag 1436294)

Ich benötige nun eine Funktion, der ich einen Feldnamen übergebe, anhand dessen dann der Wert einer bestimmten Property zurückgegeben werden soll. Beispielsweise GetFieldValue(ADataObj, 'MeinFeldX')

MVVM?

Ich würde mir über die RTTI von alles properties die Getter holen, diese dann in einem Dictionary speichern.

oder ggf. direct auf die Felder zugreifen, wenn Du keinen getter hast (wie in Deinem Beispiel).

Mavarik

[peterbelow]

Zitat:

Zitat von BlueStarHH (Beitrag 1436294)

Hallo,

ich habe ein Liste die mehrere simple Objekt enthält. Diese Objekt besitzen sehr viele Properties, um Daten zu speichern:

Delphi-Quellcode:

 TMyDataObj = class(TObject)
  private
    ...
  public
    property ValueA: string read ValueA write ValueA;
    property ValueB: string read ValueB write ValueB;
    property ValueC: string read ValueC write ValueC;
    ...
  end;

Ich benötige nun eine Funktion, der ich einen Feldnamen übergebe, anhand dessen dann der Wert einer bestimmten Property zurückgegeben werden soll. Beispielsweise GetFieldValue(ADataObj, 'MeinFeldX')

Mein Code dazu:

Delphi-Quellcode:

procedure GetFieldValue(ADataObj: TMyDataObj; const FieldName: string): string;
begin
  if AnsiSameText(FieldName, 'Wert1') then
    result := ADataObj.ValueA
  else if AnsiSameText(FieldName, 'MeinFeldX') then
    result := ADataObj.ValueB
  if AnsiSameText(FieldName, 'Feld7') then
    result := ADataObj.ValueC
end;

Wie man sieht brauche ich pro Property einen String-Vergleich. Der FieldName stimmt nie mit dem Namen der Propery überein. Wenn das ganze nun für viele Felder und sehr viele Objekte in einer verschachtelten Schleife aufgrufen wird, dauert die Ausführung zu lange. Da die String-Vergleiche für jedes Objekt wieder und wieder ausgeführt werden. Wie kann ich das schneller hinbekommen? Kann man die Verknüpfung vom String-Feldname zur Property nicht irgendwie speichern, nach dem sie das erste mal ermittelt wurde? Wenn ich so Objekte identifizieren wollte, würde ich diese in einem TDictionary<AObjectName,AObject> speichern. Das geht aber nicht mit properties oder doch?

Nicht direkt, aber es würde folgendermaßen gehen:

Definiere für jede Klasse deiner Datenobjekte einen enumerated type, nennen wir ihn mal TPropEnum, der für jede der betroffenen Properties einen Identifier enthält. Gib der Klasse eine Methode, die als Parameter Werte dieser Enumerierung bekommt und den Wert der zugeordneten Property zurückgibt (eventuell als Variant wenn die Properties unterschiedliche Typen haben können). Die Implementierung ist ein simples case-Statement, und das ist schnell.

Was Du dann noch brauchst ist ein Mapping der Feldnamen auf Werte des enumerated types. Die Quelle dafür kann ein simpler array [TPropEnum] of string sein. Dazu gehört dann ein TDictionary<string,TPropEnum>, das Du *einmal* aus dem Array initialisierst.

Damit kannst Du dann anhand des Dictionaries einen Feldnamen schnell auf einen Wert der Enumeration mappen und mit dem dann den Wert aus dem Objekt holen.

Das ist noch optimierbar, erfordert dazu aber eine Umarbeitung der Klassen. Du könntest die Daten nämlich direkt in einem Feld des Types array [TPropEnum] of variant speichern anstelle einzelner Felder pro Property, und für die Properties dann Getter und Setter implementieren, die auf den internen Array zugreifen. Siehe index keyword für Properties. Als Index kann auch ein enumerated type verwendet werden.

Eine Alternative gäbe es da noch, aber dafür müßten die Properties published sein, damit RTTI (die klassische Variante) für sie erzeugt wird. Dann könntest Du nämlich ein TDictionary<string,PPropinfo> bauen, um die Feldnamen mit den Properties zu verbinden. Mit den Helferroutinen aus der system.TypInfo Unit kann man den Wert einer Property mittels des zugehörigen PPropInfo extrahieren.

[jaenicke]

Am schnellsten wäre, wenn du ein Dictionary mit dem Feldnamen und dem Pointer auf den jeweiligen Getter erstellst. Dazu noch ein bisschen Casting und eine Prise Generics, dann sollte so etwas in der Art möglich sein:

Code:

type
  TGenericGetter<T> = function: T of object;

FFields: TDictionary<string, Pointer>;

function TFieldAccess.Get<T>(const AObject: TObject; AFieldName: string; out AData: T): Boolean;
var
  FieldAddress: Pointer;
  Getter: TGenericGetter<T>;
  GetterMethod: TMethod;
begin
  Result := FFields.TryGet(AFieldName, FieldAddress);
  if Result then
  begin
    GetterMethod.Data := AObject;
    GetterMethod.Code := FieldAddress;
    AData := TGenericGetter<T>(GetterMethod);
  end;
end;