FieldDefs: IDatasetModelFields;
Свойство FieldDefs возвращает структуру всех полей источника данных.
Sub UserProc;
Var
MB: IMetabase;
DSInst: IDatasetInstance;
ModelFields: IDatasetModelFields;
i: Integer;
Begin
MB:=MetabaseClass.Active;
DSInst:=MB.ItemById("Table_1").Open(Null) As IDatasetInstance;
ModelFields:=DSInst.FieldDefs;
i:=ModelFields.Count;
DSInst.Close;
End Sub UserProc;
После выполнения примера в переменной «i» будет содержаться количество полей источника данных с идентификатором «Table_1».
См. также: