IDatasetInstance.OpenCached

Копировать пример

Sub UserProc;
Var
    MB: IMetabase;
    DSInst: IDatasetInstance;
    Cache: ICachedDataset;
    i: Integer;
Begin
    MB := MetabaseClass.Active;
    DSInst := MB.ItemById("Table_1").Open(Null) As IDatasetInstance;
    Cache := DSInst.OpenCached;
    i := Cache.RecordCountAll;
    Cache.Close;
    DSInst.Close;
End Sub UserProc;