Получение имени устройства, которое принадлежит любому типу (TRttiType) - PullRequest
Новая
       39

Получение имени устройства, которое принадлежит любому типу (TRttiType)

6 голосов
/ 02 октября 2010

Мне нужно получить название единицы (пространства имен) любого 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?

Ответы [ 2 ]

5 голосов
/ 02 октября 2010

Информация есть, но разбор Квалифицированного Имени в настоящее время является лучшим способом получить его.

Если вы хотите сделать это трудным путем, вы можете:

В модуле system.pas у вас есть переменная LibModuleList: PLibModule = nil;, которая содержит список загруженных модулей. Это указатель на необработанную информацию RTTI, которую можно использовать без RTTI.pas. Вы можете перебрать всю необработанную информацию, чтобы определить имя устройства.

Ключевые значения модуля TLibModule: 

  PLibModule = ^TLibModule;
  TLibModule = record
    Next: PLibModule;  { Linked List of Loaded Modules)
    Instance: LongWord;
    ...
    TypeInfo: PPackageTypeInfo; { List of contained Package Information }
    ...
  end;

Используя TypeInfo: PPackageTypeInfo;, вы получаете доступ к 

  PPackageTypeInfo = ^TPackageTypeInfo;
  TPackageTypeInfo = record
    TypeCount: Integer;
    TypeTable: PTypeTable;
    UnitCount: Integer;
    UnitNames: PShortString; { concatenation of Pascal strings, 
                               one for each unit }
  end;

Затем существует TypeTable, в котором содержится информация для доступа к PTypeInfo.
последовательность. 

  TTypeTable = array[0..MaxInt div SizeOf(Pointer) - 1] of Pointer;
  PTypeTable = ^TTypeTable;

Пример того, как все это работает, можно найти в Rtti.pas TPackage.MakeTypeLookupTable - это ключевой метод. Этот метод также показывает, что QualifiedName всегда будет содержать UnitName. Таким образом, ваш оригинальный метод синтаксического анализа QualfiedName может зависеть от.

5 голосов
/ 02 октября 2010

Не похоже, что есть. RTTI происходит из структуры TTypeData, которая имеет только поле UnitName, явно объявленное для определенных типов. (Это предшествует D2010 и расширенному RTTI.) Ваш # 2 выглядит, как лучший способ получить его, и, вероятно, как гипотетический TRTTIObject.UnitName рассчитал бы его, если бы его вставили.

...