IMetaMemberLeaf.Identity

Синтаксис Fore

Identity: Integer;

Синтаксис Fore.NET

Identity: integer;

Описание

Свойство Identity возвращает числовой идентификатор элемента справочника, соответствующего элементу иерархии.

Комментарии

Ключ элемента возвращает свойство IMetaMemberLeaf.Key.

Пример Fore

Для выполнения примера предполагается наличие формы, содержащей компонент MetaAttributesTreeList с идентификатором «MetaAttributesTreeList1». Данный компонент настроен на работу с какой-либо базой данных временных рядов.

Sub UserProc;
Var
    SelNodes: Array;
    Mems: IMetaMembersSet;
    Mem: IMetaMember;
    Leaf: IMetaMemberLeaf;
Begin
    SelNodes := MetaAttributesTreeList1.GetSelectedNodes;
    Mems := MetaAttributesTreeList1.GetNodesMembers(SelNodes);
    If Not Mems.Eof Then
        Mems.Reset;
        Repeat
            Mem := Mems.Current;
            If Mem.IsLeaf Then
                Leaf := Mem As IMetaMemberLeaf;
                Debug.WriteLine("Числовой идентификатор: " + Leaf.Identity.ToString);
                Debug.WriteLine("Ключ: " + Leaf.Key.ToString);
            End If;
            Mems.Next;
        Until Mems.Eof;
    End If;
End Sub UserProc;

Результат выполнения примера: в окно консоли выведены числовые идентификаторы и ключи показателей, выделенных в «MetaAttributesTreeList1».

Пример Fore.NET

Для выполнения примера предполагается наличие формы .NET, содержащей компонент MetaAttributesTreeListNet с идентификатором «metaAttributesTreeListNet1». Данный компонент настроен на работу с какой-либо базой данных временных рядов.

Imports Prognoz.Platform.Interop.Rds;
…
Public Sub UserProc();
Var
    SelNodes: Array;
    Mems: IMetaMembersSet;
    Mem: IMetaMember;
    Leaf: IMetaMemberLeaf;
Begin
    SelNodes := metaAttributesTreeListNet1.CtrlBox.GetSelectedNodes();
    Mems := metaAttributesTreeListNet1.CtrlBox.GetNodesMembers(SelNodes);
    If Not Mems.Eof() Then
        Mems.Reset();
        Repeat
            Mem := Mems.Current();
            If Mem.IsLeaf Then
                Leaf := Mem As IMetaMemberLeaf;
                System.Diagnostics.Debug.WriteLine("Числовой идентификатор: "
                    + Leaf.Identity.ToString());
                System.Diagnostics.Debug.WriteLine("Ключ: " + Leaf.Key.ToString());
            End If;
            Mems.Next();
        Until Mems.Eof();
    End If;
End Sub UserProc;

Результат выполнения примера: в окно консоли выведены числовые идентификаторы и ключи показателей, выделенных в «metaAttributesTreeListNet1».

См. также:

IMetaMemberLeaf