在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
var TName : Tclass; begin ListBox1.Clear; //要先注册类,才能使用GetClass TName := GetClass(Edit1.Text); while TName<>nil do begin ListBox1.Items.Add(TName.ClassName); TName := TPersistentClass(TName.ClassParent); end; end; |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论