如何利用RTTI检查Delphi组件是否具备Text属性

嘿，我来帮你搞定这个RTTI的问题！你想判断组件有没有Text属性，用RTTI确实是最灵活的方案——不用硬编码一堆组件类型判断（毕竟像TEdit、TcxButton这类组件都有Text，但直接判断类型很容易漏情况）。

首先，你需要先引用Delphi的RTTI单元：在你的uses列表里加上System.Rtti（如果你用的是Delphi XE及以后版本；如果是更早的版本，比如Delphi 2010及之前，需要用TypInfo单元，后面会提兼容方案）。

接下来，我们重写你的HasTextProp函数，用RTTI实现属性检查：

uses
  System.Rtti; // 别忘了加这个单元

function HasTextProp(aControl: TControl): Boolean;
var
  RttiCtx: TRttiContext;
  RttiType: TRttiType;
  RttiProp: TRttiProperty;
begin
  Result := False;
  // 创建RTTI上下文（轻量级对象，每次用局部创建就行）
  RttiCtx := TRttiContext.Create;
  try
    // 获取当前组件的类型信息
    RttiType := RttiCtx.GetType(aControl.ClassType);
    // 查找名为'Text'的属性（注意名称大小写敏感）
    RttiProp := RttiType.GetProperty('Text');
    // 如果找到属性，说明组件拥有Text属性
    Result := Assigned(RttiProp);
  finally
    RttiCtx.Free;
  end;
end;

然后修正你主程序里的小问题（比如ObjList.Create后面的逗号、变量名笔误lObjList）：

var
  ObjList: TObjectList<TControl>;
  ObjIdx: Integer;
begin
  ObjList := TObjectList<TControl>.Create;
  try
    ObjList.Add(comp1); // TcxButton
    ObjList.Add(comp2); // TEdit
    ObjList.Add(comp3); // TDateTimeEdit
    for ObjIdx := 0 to ObjList.Count - 1 do
    begin
      if HasTextProp(ObjList.Items[ObjIdx]) then
      begin
        // 这里写你要执行的操作，比如：
        ShowMessage(ObjList.Items[ObjIdx].Name + ' 拥有Text属性');
      end;
    end;
  finally
    ObjList.Free;
  end;
end;

额外说明 #

1. 兼容旧版Delphi：如果你用的是Delphi 2010及之前版本，没有System.Rtti，可以用TypInfo单元的GetPropInfo函数：

   uses
     TypInfo;
   
   function HasTextProp(aControl: TControl): Boolean;
   begin
     Result := GetPropInfo(aControl.ClassInfo, 'Text') <> nil;
   end;
   

2. 大小写注意：RTTI的属性查找是大小写敏感的，所以要确保你写的是'Text'而不是'text'或者'TEXT'。
3. 性能考量：RTTI的性能比直接判断组件类型（比如aControl is TEdit）稍差，但对于常规的组件检查场景完全够用，不用担心性能问题。
4. 扩展检查：如果你不仅想判断属性存在，还想确认它是可读/可写的，可以在找到RttiProp后，检查RttiProp.IsReadable或RttiProp.IsWritable。

内容的提问来源于stack exchange，提问作者Steve88