Property eines TObjects setzen Frage

[KodeZwerg]

@generic

Delphi-Quellcode:

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

Dank Deines Tutorials und weil es mir Spass macht rumzuprobieren, ist das entstanden, kA ob es Vorteile oder Nachteile gegenüber DeddyH sein code gibt, das war im Tutorial nicht erwähnt.