TRttiTypeHelper

TRttiTypeHelper.pas

type
  TRttiTypeHelper = class helper for TRttiType
    function GetBestName(): string; virtual;
    function GetUnitName(): string; virtual;
  end;

function TRttiTypeHelper.GetBestName(): string;
begin
  // you cannot ask for QualifiedName on a non-public RttiType
  if Self.IsPublicType then
    Result := Self.QualifiedName
  else
    Result := Self.Name;
end;

function TRttiTypeHelper.GetUnitName(): string;
begin
  Result := Copy(QualifiedName, 1, Length(QualifiedName) - Length(Name) - 1);
end;