delphi – 获取属于任何类型的单元名称(TRttiType)

我需要得到任何 TRttiType的单位(命名空间)的名称.

到目前为止,我已尝试过以下内容.

1)使用PTypeData.UnitName,此解决方案有效,但仅当TTypeKind为tkClass时.

procedure ListAllUnits;
var
  ctx  : TRttiContext;
  lType: TRttiType;
  Units: TStrings;
begin
  Units:=TStringList.Create;
  try
    ctx := TRttiContext.Create;
    for lType in ctx.GetTypes do
     if lType.isinstance then //only works for classes
      if Units.IndexOf(UTF8ToString(GetTypeData(lType.Handle).UnitName))<0 then
      Units.Add(UTF8ToString(GetTypeData(lType.Handle).UnitName));
  Writeln(Units.Text);
  finally
    Units.Free;
  end;
end;

2)解析Qualifiedname属性,这个解决方案到目前为止工作正常,但我对此并不满意.

procedure ListAllUnits2;

  function GetUnitName(lType: TRttiType): string;
  begin
    Result := StringReplace(lType.Qualifiedname,'.' + lType.Name,'',[rfReplaceAll])
  end;

var
  ctx: TRttiContext;
  lType: TRttiType;
  Units: TStrings;
begin
  Units := TStringList.Create;
  try
    ctx := TRttiContext.Create;
    for lType in ctx.GetTypes do
      if Units.IndexOf(GetUnitName(lType)) < 0 then
        Units.Add(GetUnitName(lType));
    Writeln(Units.Text);
  finally
    Units.Free;
  end;
end;

问题是,存在另一种可靠的方法来获取任何TRttiType的单位名称？

解决方法

它看起来不像. RTTI来自TTypeData结构,该结构仅具有为特定类型显式声明的UnitName字段. (这早于D2010并扩展了RTTI.)你的#2看起来是获得它的最佳方式,并且可能是假设的TRTTIObject.UnitName如果要将其放入其中,它将如何计算它.