Question

如何获取不是Component的Object的属性列表（在运行时）。就像Grid Cell一样，它有自己的属性（Font，Align等）。

网格，如AdvStringGrid或AliGrid，或Bergs NxGrid。

Answer 1

您要求的是访问对象的RTTI（运行时类型信息）。

如果您使用的是Delphi 2009或更早版本，则RTTI仅公开已发布的属性和已发布的方法（即事件处理程序）。查看GetPropInfos()单元中的GetPropList()或System.TypInfo函数。它们为您提供了一系列指向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或更高版本，则 Extended RTTI会公开所有属性，方法和数据成员，无论其可见性如何。查看TRttiContext单元中的TRttiType记录以及TRttiProperty和System.Rtti类。有关详细信息，请参阅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;

对象的属性列表

1 个答案: