【文件属性】：
文件名称：如何得到对象或者类的所有属性名？-afe4403说明书
文件大小：5.68MB
文件格式：PDF
更新时间：2021-06-02 14:13:35
Delphi
(2) 如何得到对象或者类的所有属性名？
var
I, J: Integer;
PropList: PPropList;
begin
J := GetPropList(ListBox1, PropList);
{取得 ListBox1 所有属性放到 PropList 中}
for I := Low(PropList^) to J-1 do
begin
ListBox1.Items.Add(’第’ + IntToStr(PropList[I]^.NameIndex) +
’个：’ + PropList[I]^.Name);
end;
end;