Delphi对象属性列表中，每个属性如何定义和调用？
- 内容介绍
- 文章标签
- 相关推荐
本文共计386个文字，预计阅读时间需要2分钟。
如何获取不是Component的对象的属性列表（在运行时）？就像Grid+Cell一样，它有自己的属性（Font、Align等）。例如网格如AdvStringGrid或AliGrid，或Bergs NxGrid。您想要获取的是访问对象的RTTI（运行时类型信息）。如果您想要“
如何获取不是Component的Object的属性列表(在运行时).就像Grid Cell一样,它有自己的属性(Font,Align等).网格如AdvStringGrid或AliGrid,或Bergs NxGrid.
您要求的是访问对象的RTTI(运行时类型信息).如果您使用的是Delphi 2009或更早版本,则RTTI仅公开已发布的属性和已发布的方法(即事件处理程序).查看System.TypInfo单元中的GetPropInfos()或GetPropList()功能.它们为您提供了一系列指向TPropInfo记录的指针,每个记录对应一个属性. TPropInfo有一个Name成员(除其他外).
uses TypInfo; var PropList: PPropList; PropCount, I: Integer; begin PropCount := GetPropList(SomeObject, PropList); try for I := 0 to PropCount-1 do begin // use PropList[I]^ as needed... ShowMessage(PropList[I].Name); end; finally FreeMem(PropList); end; end;
请注意,此类RTTI仅适用于从TPersistent派生的类,或者应用了{M+}编译器指令(TPersistent执行此操作).
如果您使用的是Delphi 2010或更高版本,则无论其可见性如何,扩展RTTI都会公开所有属性,方法和数据成员.查看TRttiContext单元中的TRttiContext记录以及TRttiType和TRttiProperty类.有关更多详细信息,请参阅Embarcadero的文档：Working with RTTI.
uses System.Rtti; var Ctx: TRttiContext; Typ: TRttiType; Prop: TRttiProperty; begin Typ := Ctx.GetType(SomeObject.ClassType); for Prop in Typ.GetProperties do begin // use Prop as needed... ShowMessage(Prop.Name); end; for Prop in Typ.GetIndexedProperties do begin // use Prop as needed... ShowMessage(Prop.Name); end; end;
本文共计386个文字，预计阅读时间需要2分钟。
如何获取不是Component的对象的属性列表（在运行时）？就像Grid+Cell一样，它有自己的属性（Font、Align等）。例如网格如AdvStringGrid或AliGrid，或Bergs NxGrid。您想要获取的是访问对象的RTTI（运行时类型信息）。如果您想要“
如何获取不是Component的Object的属性列表(在运行时).就像Grid Cell一样,它有自己的属性(Font,Align等).网格如AdvStringGrid或AliGrid,或Bergs NxGrid.
您要求的是访问对象的RTTI(运行时类型信息).如果您使用的是Delphi 2009或更早版本,则RTTI仅公开已发布的属性和已发布的方法(即事件处理程序).查看System.TypInfo单元中的GetPropInfos()或GetPropList()功能.它们为您提供了一系列指向TPropInfo记录的指针,每个记录对应一个属性. TPropInfo有一个Name成员(除其他外).
uses TypInfo; var PropList: PPropList; PropCount, I: Integer; begin PropCount := GetPropList(SomeObject, PropList); try for I := 0 to PropCount-1 do begin // use PropList[I]^ as needed... ShowMessage(PropList[I].Name); end; finally FreeMem(PropList); end; end;
请注意,此类RTTI仅适用于从TPersistent派生的类,或者应用了{M+}编译器指令(TPersistent执行此操作).
如果您使用的是Delphi 2010或更高版本,则无论其可见性如何,扩展RTTI都会公开所有属性,方法和数据成员.查看TRttiContext单元中的TRttiContext记录以及TRttiType和TRttiProperty类.有关更多详细信息,请参阅Embarcadero的文档：Working with RTTI.
uses System.Rtti; var Ctx: TRttiContext; Typ: TRttiType; Prop: TRttiProperty; begin Typ := Ctx.GetType(SomeObject.ClassType); for Prop in Typ.GetProperties do begin // use Prop as needed... ShowMessage(Prop.Name); end; for Prop in Typ.GetIndexedProperties do begin // use Prop as needed... ShowMessage(Prop.Name); end; end;