获取对象或类的所有属性名
var I, J: Integer; PropList: PPropList; J := GetPropList(ListBox1, PropList); for I := Low(PropList^) to J-1 do begin ListBox1.Items.Add('第' + IntToStr(PropList[I]^.NameIndex) + '个：' + PropList[I]^.Name); end;
文件大小：5.68MB
评论区