1. 云栖社区>
  2. PHP教程>
  3. 正文

Delphi中获取某类的祖先类及其所在单元名称(使用GetTypeData(PClass.ClassInfo)函数,并且该类是从TPersistent类的派生类才可以这么使用)

作者:用户 来源:互联网 时间:2017-12-01 09:57:22

函数使用派生单元某类祖先TPersistentGetTypeDataClassInfo

Delphi中获取某类的祖先类及其所在单元名称(使用GetTypeData(PClass.ClassInfo)函数,并且该类是从TPersistent类的派生类才可以这么使用) - 摘要: 本文讲的是Delphi中获取某类的祖先类及其所在单元名称(使用GetTypeData(PClass.ClassInfo)函数,并且该类是从TPersistent类的派生类才可以这么使用),前几天在CSDN社区看到一篇《如何得到自身单元名称》的帖子,其中一位名为sdzeng网友给出了答案。受此启发,自己写了一个函数,用来获取指定类的所有祖先类的名称及其所在的单元名称。//参数说明://AClass:需要获取祖先类的类//ASe

前几天在CSDN社区看到一篇《如何得到自身单元名称》的帖子,其中一位名为sdzeng网友给出了答案。受此启发,自己写了一个函数,用来获取指定类的所有祖先类的名称及其所在的单元名称。

//参数说明:
//AClass:需要获取祖先类的类
//ASeries:是一个字符串列表,用来存放返回的祖先类及其所在单元的名称
procedureGetInheritanceSeries(AClass:TClass;outASeries:TStringList);
var
PTD:PTypeData;
PTI:PTypeInfo;
PClass:TClass;
begin
ASeries.Clear;
PClass:=TButton;
if not PClass.InheritsFrom(TPersistent) then Exit;
PTD:=GetTypeData(PClass.ClassInfo);
ASeries.Add(Format('%s(%s)',[PClass.ClassName,PTD.UnitName]));
repeat
PTD:=GetTypeData(PClass.ClassInfo);
PTI:=PTD.ParentInfo^;
ASeries.Insert(0,Format('%s(%s)',[PTI^.Name,PTD.UnitName]));
PClass:=PClass.ClassParent;
untilnotPClass.InheritsFrom(TPersistent);
end;

使用举例

//获取TButton类的所有祖先类及其所在单元名称
var
sl:TStringList;
begin
sl:=TStringList.Create;
try
GetInheritanceSeries(TButton,sl);
Memo1.Lines.AddStrings(sl);
finally
sl.Free;
end;
end;
返回结果如下:

TObject(Classes)
TPersistent(Classes)
TComponent(Controls)
TControl(Controls)
TWinControl(StdCtrls)
TButtonControl(StdCtrls)
TButton(StdCtrls)

补充说明

注意上术代码中GetTypeData(PClass.ClassInfo);的使用,必须保证该类是从TPersistent类的派生类才可以这么使用,否则会抛出地址访问错误的。

http://cmao.iteye.com/blog/2246009

以上是云栖社区小编为您精心准备的的内容,在云栖社区的博客、问答、公众号、人物、课程等栏目也有的相关内容,欢迎继续使用右上角搜索按钮进行搜索函数 , 使用 , 派生 , 单元 , , 某类 , 祖先 , TPersistent , GetTypeData ClassInfo ,以便于您获取更多的相关知识。