在Delphi 10.3.3中使用RTTI收集类的所有后代

uses
  System.Classes, System.SysUtils, System.Rtti;

procedure CollectDescendantClasses(AClass: TClass; AList: TList<TClass>);
var
  Context: TRttiContext;
  DescendantClass: TClass;
  DescendantType: TRttiInstanceType;
begin
  AList.Add(AClass); // 添加当前类到列表中

  // 获取当前类的RTTI信息
  DescendantType := Context.GetType(AClass) as TRttiInstanceType;

  // 遍历当前类的所有后代类
  for DescendantClass in DescendantType.Descendants do
    CollectDescendantClasses(DescendantClass, AList);
end;

// 示例用法
procedure Main;
var
  RootClass: TClass;
  DescendantList: TList<TClass>;
  DescendantClass: TClass;
begin
  RootClass := TObject; // 设置根类，例如TObject

  DescendantList := TList<TClass>.Create;
  try
    CollectDescendantClasses(RootClass, DescendantList);

    // 遍历所有后代类并进行处理
    for DescendantClass in DescendantList do
    begin
      // 处理后代类...
    end;
  finally
    DescendantList.Free;
  end;
end;