IDimSelection.FirstDimElement

Синтаксис Fore

FirstDimElement: Integer;

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

FirstDimElement: uinteger;

Описание

Свойство FirstDimElement возвращает первый выделенный элемент справочника.

Комментарии

Для получения последнего выделенного элемента справочника используйте метод IDimSelection.LastDimElement.

Пример Fore

Для выполнения примера предполагается наличие в репозитории справочника с ключом «6443».

Добавьте ссылки на системные сборки «Metabase», «Dimensions».

Sub UserProc;
Var
    MB: IMetabase;
    Dimen: IDimInstance;
    Selection: IDimSelection;
    Elem: IDimElements;
    First, Last: Integer;
    s: String;
Begin
    MB := MetabaseClass.Active;
    Dimen := MB.Item(6443).Open(Null) As IDimInstance;
    Selection := Dimen.CreateSelection;
    // добавим все элементы в отметку
    Selection.SelectAll;
    // первый выделенный элемент справочника
    First := Selection.FirstDimElement;
    // последний выделенный элемент справочника
    Last := Selection.LastDimElement;
    Elem := Dimen.Elements;
    Debug.WriteLine("All elements: ");
    Debug.Indent;
    Debug.WriteLine(Selection.ToString("NAME"));
    Debug.Unindent;
    s := Elem.Name(First);
    Debug.WriteLine("First element (" + First.ToString + ") " + s);
    s := Elem.Name(Last);
    Debug.WriteLine("Last element (" + Last.ToString + ") " + s);
End Sub UserProc;

После выполнения примера в окно консоли будут выведены значения первого и последнего элементов справочника.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Imports Prognoz.Platform.Interop.Dimensions;
…
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Dimen: IDimInstance;
    Selection: IDimSelection;
    Elem: IDimElements;
    First, Last: uinteger;
    s: String;
Begin
    MB := Params.Metabase;
    Dimen := MB.Item[6443].Open(Null) As IDimInstance;
    Selection := Dimen.CreateSelection();
    // добавим все элементы в отметку
    Selection.SelectAll();
    // первый выделенный элемент справочника
    First := Selection.FirstDimElement;
    // последний выделенный элемент справочника
    Last := Selection.LastDimElement;
    Elem := Dimen.Elements;
    System.Diagnostics.Debug.WriteLine("All elements: ");
    System.Diagnostics.Debug.Indent();
    System.Diagnostics.Debug.WriteLine(Selection.ToString("NAME", ",", True));
    System.Diagnostics.Debug.Unindent();
    s := Elem.Name[First];
    System.Diagnostics.Debug.WriteLine("First element (" + First.ToString() + ") " + s);
    s := Elem.Name[Last];
    System.Diagnostics.Debug.WriteLine("Last element (" + Last.ToString() + ") " + s);
End Sub;

См. также:

IDimSelection