Delphi 使用 RTTI 动态通过名称调用函数和设置控件属性值

// 设置控件的属性名
uses TypInfo, JclAnsiStrings;

function GetObject(obj:TObject; path:String): TObject;
var objName:String;
begin
  Result := obj;

  while System.Length(path) > 0 do begin
    objName := JclAnsiStrings.StrToken(path, '.');
    if obj is TComponent then begin
      Result := TComponent(Result).FindComponent(objName);
    end else begin
      Result := TypInfo.GetObjectProp(Result, objName);
    end;
  end;
end;

procedure SetPropValue(obj:TObject; path:String; value:Variant);
var tk:TTypeKind;
    i:Integer;
    propName:String;
begin
  i := JclAnsiStrings.StrLastPos('.', path);
  if i > 0 then begin
    obj:= GetObject(obj, JclAnsiStrings.StrLeft(path, i-1));
    propName:= JclAnsiStrings.StrRestOf(path, i+1