Question

我宣布在节目中开设一些简单的课程,例如:

MyClass = class 
    Var1 : Integer
    Var2 : Integer
end;

我想做的是获取一个列表, 列出在运行时该类的变量 (“ MyClass” ) (可能有些像“ GetPropList ” 的组件? ) 。

我有类似的想法(显然,“ GetVarNames” 函数不存在, 但我希望这能给出这个想法),

var
    MyVariableNamesList: TStringList
    i : integer;

begin
    MyVariableNamesList := TStringList.create;        
    MyVariableNamesList := GetVarNames(MyClass)

end;

如果这是愚蠢的问题,请事先道歉!

Answer 1

根据您的 Delphi 版本, 您可以使用新的 RTTI (与 Delphi 2010 一起推出) 。

你可以做这样的事:

function GetVarNames(const AClass : TObject) : TStringList;
var lType : TRttiType;
  lContext : TRttiContext;
  lProperty : TRttiProperty;
  lField : TRttiField;
begin
  Result := TStringList.create;
  LType := lContext.GetType(AClass.ClassType);
  if assigned(LType) then
  begin
    for LProperty in LType.GetProperties do
    begin
      Result.Add(lProperty.Name);
      //Get current value:
      Result.Add(lProperty.GetValue(AClass).ToString);
    end;
   for lField in LType.GetFields do
   begin
     Result.Add(lField.Name);
     //Get current value:
     Result.Add(lField.GetValue(AClass).ToString);
   end;
 end;
end;

友情链接