[RTTI] Properties beim Namen nennen - in D7

**Medium**

Aloah!
Ich baue mir gerade eine kleine Hilfsroutine, mit der ich Werte aus einer DB in diverse Controls bringen will. Diese sind verschiedenen Typs. Gebaut habe ich bisher (das ist eine Ableitung von TForm, wo diese Updates in einem Thread kontinuierlich durchnudeln):

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TUpdateThread.Update(tableName, nameColumn, valueColumn: String; controlClass: TClass; controlPrefix, controlValueProperty: String);

var

  o: TComponent;

  v: Pointer;

begin

  FQry.SQL.Text := 'SELECT '+nameColumn+', '+valueColumn+' FROM '+tableName;

  FQry.Open;

  while Assigned(FQry) and Assigned(FForm) and (not FQry.Eof) do

  begin

    o := FForm.FindComponent(controlPrefix+FQry.FieldByName(nameColumn).AsString); // FForm = Referenz auf das TMyForm, dass diese Threadinstanz gestartet hat

    if Assigned(o) and (o is controlClass) and (o as TControl).Parent.Visible then

    begin

      try

        v := (o as controlClass).FieldAddress(controlValueProperty);

        if Assigned(v) then

          Double(v^) := FQry.FieldByName(valueColumn).AsFloat;

      except

      end;

    end;

    FQry.Next;

  end;

  FQry.Close;

end;

Leider ist "v" immer nil, obwohl definitiv der Name einer Published Property der übergebenen Klasse in "controlValueProperty" steht. Wobei ich mir gut vorstellen kann, dass gerade eben das Problem ist, dass es eine Property ist, und kein einfaches Feld. Wüsste jemand hier, wie ich (in Delphi 7 wohlgemerkt...) via Namen Zuweisungen an Properties erledigen könnte, oder war damals die RTTI einfach noch nicht reif für solche Spielchen?
(Die nicht synchronisierten Griffe in VCL Dinge sind mir bewusst, darüm kümmer ich mich später, wenn das hier doch gehen sollte.)

[RTTI] Properties beim Namen nennen - in D7

[RTTI] Properties beim Namen nennen - in D7

Forumregeln