IMetabaseObjectFindInfo.CaseSensitive

Синтаксис Fore

CaseSensitive: Boolean;

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

CaseSensitive: Boolean;

Описание

Свойство CaseSensitive определяет признак учета регистра символов при поиске.

Комментарии

Допустимые значения:

• True. Учитывать регистр.

• False. Значение по умолчанию. Не учитывать регистр.

Пример Fore

Sub UserProc;
Var
    MB: IMetabase;
    MDescs: IMetabaseObjectDescriptors;
    MDesc: IMetabaseObjectDescriptor;
    FInfo: IMetabaseObjectFindInfo;
Begin
    MB := MetabaseClass.Active;
    FInfo := MB.CreateFindInfo;
    FInfo.Text := "Object";
    FInfo.Attribute := FindAttribute.NameOrIdent;
    FInfo.CaseSensitive := True;
    FInfo.WholeWordsOnly := False;
    //Поиск объектов
    MDescs := MB.Find(FInfo);
    //Просмотр результатов
    For Each MDesc In MDescs Do
        Debug.WriteLine("Идентификатор: " + MDesc.Id + "; Наименование: " + MDesc.Name);
    End For;
End Sub UserProc;

При выполнении примера будет осуществлен поиск всех объектов, содержащих в своем наименовании или идентификаторе текст «Object». При поиске будет учитываться регистр символов. Наименования и идентификаторы найденных объектов будут выведены в консоль среды разработки.

Пример Fore.NET

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

Imports Prognoz.Platform.Interop.Metabase;

Public Shared Sub Main12(Params: StartParams);
Var
    MB: IMetabase;
    MDescs: IMetabaseObjectDescriptors;
    MDesc: IMetabaseObjectDescriptor;
    FInfo: IMetabaseObjectFindInfo;
Begin
    MB := Params.Metabase;
    FInfo := MB.CreateFindInfo();
    FInfo.Text := "Object";
    FInfo.Attribute := FindAttribute.fnaNameOrIdent;
    FInfo.CaseSensitive := True;
    FInfo.WholeWordsOnly := False;
    //Поиск объектов
    MDescs := MB.Find(FInfo);
    //Просмотр результатов
    For Each MDesc In MDescs Do
        System.Diagnostics.Debug.WriteLine("Идентификатор: " + MDesc.Id + "; Наименование: " + MDesc.Name);
    End For;
End Sub;

См. также:

IMetabaseObjectFindInfo