祖宗摆放位置单子放什么位置

来源：蜘蛛抓取(WebSpider) 时间：2015-02-26 14:24 标签： 祖宗位置的高度
Delphi（1）
&前几天在CSDN社区看到一篇《》的帖子，其中一位名为网友给出了答案。受此启发，自己写了一个函数，用来获取指定类的所有祖先类的名称及其所在的单元名称。
//参数说明：
//AClass:&需要获取祖先类的类
//ASeries:&是一个字符串列表，用来存放返回的祖先类及其所在单元的名称
procedure&GetInheritanceSeries(AClass:&TC&out&ASeries:&TStringList);
&&PTD:&PTypeD
&&PTI:&PTypeI
&&PClass:&TC
&&ASeries.C
&&PClass&:=&TB
&&& & if not PClass.InheritsFrom(TPersistent) then E
&&PTD&:=&GetTypeData(PClass.ClassInfo);
&&ASeries.Add(Format('%s(%s)',&[PClass.ClassName,&PTD.UnitName]));
&&&&PTD&:=&GetTypeData(PClass.ClassInfo);
&&&&PTI&:=&PTD.ParentInfo^;
&&&&ASeries.Insert(0,&Format('%s(%s)',&[PTI^.Name,&PTD.UnitName]));
&&&&PClass&:=&PClass.ClassP
&&until&not&PClass.InheritsFrom(TPersistent);
//获取TButton类的所有祖先类及其所在单元名称
&&sl:&TStringL
&&sl&:=&TStringList.C
&&&&GetInheritanceSeries(TButton,&sl);
&&&&Memo1.Lines.AddStrings(sl);
返回结果如下：
TObject(Classes)
TPersistent(Classes)
TComponent(Controls)
TControl(Controls)
TWinControl(StdCtrls)
TButtonControl(StdCtrls)
TButton(StdCtrls)
&&&&注意上术代码中GetTypeData(PClass.ClassInfo);的使用，必须保证该类是从TPersistent类的派生类才可以这么使用，否则会抛出地址访问错误的。
参考知识库
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：54403次
排名：千里之外
转载：30篇
(2)(2)(1)(20)(3)(2)在农村建房子，一楼堂屋上方也就是祖宗牌位那个位置，想在二楼做卫生间可以吗？有的老人说不行，楼下是放_百度知道祖宗牌位放在家里什么位置好_百度知道祖先渊源何在_百度知道祖宗像放在祠堂中堂还是寝室_百度知道

我要回帖

更多关于 祖宗位置的高度 的文章

 

随机推荐