GetFieldInfos

function GetFieldInfos(

  aClass: TClass;

  FieldList: PExtendedFieldInfoTable;

  Visibilities: TVisibilityClasses = [];

  IncludeInherited: Boolean = True

):Integer;

function GetFieldInfos(

  aRecord: PRecordData;

  FieldList: PExtendedFieldInfoTable;

  Visibilities: TVisibilityClasses = []

):Integer;

function GetFieldInfos(

  TypeInfo: PTypeInfo;

  FieldList: PExtendedFieldInfoTable;

  Visibilities: TVisibilityClasses = [];

  IncludeInherited: Boolean = True

):Integer;