IMetaDictionaryLookup.Current

Syntax

Current: IMetaDictionaryData;

Description

The Current property returns a current object in a cursor.

Example

Executing the example requires that the repository contains a time series database with the OBJ_FC identifier. The database must have a time series attribute with the COUNTRY identifier.

Sub Main;

Var

MB: IMetabase;

RubDesc: IMetabaseObjectDescriptor;

RubrIn: IRubricatorInstance;

DictInst: IMetaDictionaryInstance;

MetaDLookup: IMetaDictionaryLookup;

Conditions: IOrmConditions;

Cond: IOrmCondition;

Current: IMetaDictionaryData;

Begin

MB := MetabaseClass.Active;

RubDesc := MB.ItemById("OBJ_FC");

RubrIn := RubDesc.Open(Null) As IRubricatorInstance;

DictInst := RubrIn.Facts;

MetaDLookup := DictInst.CreateLookup("");

Conditions := MetaDLookup.Where;

Cond := Conditions.Add;

Cond.AttributeName := "COUNTRY";

Cond.Value := 512;

MetaDLookup.Open(DictionaryCursorOptions.None);

While Not MetaDLookup.Eof Do

Current := MetaDLookup.Current;

Debug.WriteLine(Current.Record.Key.ToString);

MetaDLookup.Next;

End While;

MetaDLookup.Close;

End Sub Main;

After executing the example, record keys that meet the following conditions are displayed in the console window: value of the COUNTRIES attribute equals to 512 in a factor.

See also:

IMetaDictionaryLookup