Property eines TObjects setzen Frage

[KodeZwerg]

Zitat von Uwe Raabe:

Ich fürchte bei Font.Color wird es nicht funktionieren, denn das Property ist Font und der hat ein Property Color. Also sollte man nach Property Font suchen und sich die Font-Instanz holen, um dessen Color zu setzen.

Guten Morgen!

Ich bin gerade am aufräumen meines Codes und wollte nun Deinen Vorschlag richtig umsetzen, zur Sicherheit Frage ich nochmal nach ob ich es so anwende wie Du es meintest.

Delphi-Quellcode:

procedure TfrmMain.SetObjectColors(AObject: TObject);
const
  sPropColor = 'Color';
  sPropFont = 'Font';
var
  Context: TRttiContext;
  RType: TRttiType;
  Prop: TRttiProperty;
  Fields: TRttiField;
begin
  Context := TRttiContext.Create;
  RType := Context.GetType(AObject.ClassType);
  for Prop in RType.GetProperties do
  begin
    if Prop.Name = sPropColor then
      Prop.SetValue(AObject, FColorBackground);
    if Prop.Name = sPropFont then
      for Fields in RType.GetFields do
        if Fields.Name = SPropColor then
          Fields.SetValue(AObject, FColorText);
  end;
  Context.Free;
end;

[Uwe Raabe]

Eventuell eher so:

Delphi-Quellcode:

  for Prop in RType.GetProperties do
  begin
    if Prop.Name = sPropColor then
      Prop.SetValue(AObject, FColorBackground);
    if Prop.PropertyType.IsInstance and Prop.PropertyType.AsInstance.MetaclassType.InheritsFrom(TFont) and (Prop.Name = sPropFont) then 
      TFont(prop.GetValue(AObject).AsObject).Color := FColorText;
  end;

[KodeZwerg]

Zitat von Uwe Raabe:

Eventuell eher so...

Das übernehme ich gerne so wie Du es geschrieben hast.
Vielen Dank Uwe!

//edit
Noch eine Frage, wäre

Delphi-Quellcode:

    if (Prop.Name = sPropFont) and Prop.PropertyType.IsInstance and Prop.PropertyType.AsInstance.MetaclassType.InheritsFrom(TFont) then
      TFont(prop.GetValue(AObject).AsObject).Color := FColorText;

nicht sinnvoller um gleich am Anfang unnützes auszuschließen?

[Uwe Raabe]

Kann man machen, ja.

[himitsu]

Wenn man es nicht milliarden Mal ausführt, ist es praktisch egal.

Die meisten Property sind keine Klassen und die Typ-/Instanzprüfung (Enum vergleichen und dann Pointer) ist einen Hauch schneller, als einen String zu prüfen (nil-Test, Zeiger dereferenzieren und dann noch zeichenweise Prüfen oder Länge auslesen/vergleichen und eventuell noch byteweise wenn gleichlang).