社区
Delphi
帖子详情
如何利用程序获取一个对象的所有信息(高难)
fwtandpj
2004-05-14 09:22:35
在DELPHI中如何利用程序获取一个对象的所有信息。包括属性,方法!可以不包括继承下来的属性和方法!在DELHI每一个版本中都有一个对象浏览器,可以知道当前对象的所有信息,包括继承的层次关系!我记得在一个老的DELPHI版本中有过一个类似的代码,但现在手里已经没有那个盘了,望各位高手给予帮助!多谢了啊!
...全文
47
2
打赏
收藏
如何利用程序获取一个对象的所有信息(高难)
在DELPHI中如何利用程序获取一个对象的所有信息。包括属性,方法!可以不包括继承下来的属性和方法!在DELHI每一个版本中都有一个对象浏览器,可以知道当前对象的所有信息,包括继承的层次关系!我记得在一个老的DELPHI版本中有过一个类似的代码,但现在手里已经没有那个盘了,望各位高手给予帮助!多谢了啊!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
2 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
xzhifei
2004-05-14
打赏
举报
回复
uses
TypInfo;
procedure ListComponentProperties(Component: TComponent; Strings: TStrings);
var
Count, Size, I: Integer;
List: PPropList;
PropInfo: PPropInfo;
PropOrEvent, PropValue: string;
begin
Count := GetPropList(Component.ClassInfo, tkAny, nil);
Size := Count * SizeOf(Pointer);
GetMem(List, Size);
try
Count := GetPropList(Component.ClassInfo, tkAny, List);
for I := 0 to Count - 1 do
begin
PropInfo := List^[I];
if PropInfo^.PropType^.Kind in tkMethods then
PropOrEvent := 'Event'
else
PropOrEvent := 'Property';
PropValue := VarToStr(GetPropValue(Component, PropInfo^.Name));
Strings.Add(Format('[%s] %s: %s = %s', [PropOrEvent, PropInfo^.Name,
PropInfo^.PropType^.Name, PropValue]));
end;
finally
FreeMem(List);
end;
end;
// Example: List all Properties/Events from Button1 in a TListBox
procedure TForm1.Button1Click(Sender: TObject);
begin
ListComponentProperties(Button1, ListBox1.Items);
end;
fwtandpj
2004-05-14
打赏
举报
回复
我做了测试了,但是用以上方式只能获得一个对象的属性,并没有对象的方法!要是想获得对象的全部信息该如何做啊!
第七章、 面向
对象
基础--下(续) 内部类、枚举、注解
内容 内部类 枚举 注解 学习目标 说出内部类的几种形式 能够声明静态内部类和非静态成员内部... 能够
获取
枚举类型的
对象
...第七章 面向
对象
基础–下(续) ...将
一个
类A定义在另
一个
类B里面,里面的那个类...
python高级语法
print(type(lis),type(it)) 使用next()方法
获取
迭代器的下
一个
元素: lis=[1,2,3,4] it = iter(lis) print(next(it)) print(next(it)) 使用for循环遍历迭代器: lis = [1,2,3,4] it = iter(lis) # 创建迭代器
对象
...
小
程序
化正在成为线上教育的最佳方式
进一步分析下来,发现在线教育行业普遍在教学资源管理、获客转化和IT建设等方面存在一系列挑战: 1、线上教学资源管理难 在线教育有着受众
对象
广、水平差异大的特点,而在线学习由于
信息
的不对称,无法对某些区域...
CTF-WEB的知识体系
竞赛内容 1.WEB:网络攻防 2.Reverse:逆向工程 3.PWN:二进制漏洞 4.Crypto: 密码学 5.Mobile: 移动安全 6.Misc:安全杂项 Burp Suite工具 使用Java编写的
一个
用于测试网络应用
程序
安全性的图形化工具。 主要功能 1....
C++学习
连接:最后,在链接阶段,
一个
名为链接器的
程序
将构建最终可执行文件所需的所有目标文件收集在一起,将它们与特定于操作系统的
信息
捆绑在一起,最后生成
一个
多文件
程序
、抽象和可以运行和分发的预处理器可执行文件。...
Delphi
5,386
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章