IFreeTextComparer.MatchCase

Синтаксис Fore

MatchCase: Boolean;

Описание

Свойство MatchCase определяет, учитывать ли регистр при сравнении.

Комментарии

Возможные значения:

• True. Регистр учитывается. Например, слова «Отчет» и «ОТЧЕТ» будут считаться несовпадающими;

• False. Значение по умолчанию. Регистр не учитывается. Например, слова «Отчет» и «ОТЧЕТ» будут считаться равными.

Пример

Для выполнения примера добавьте ссылку на системную сборку «Collections».

Sub UserProc;
    Function TestCompare(x: String; y: String): Integer;
    Var
        pComparer: IComparer;
        FreeComparer: IFreeTextComparer;
        iResult: Integer;
    Begin
        pComparer := Comparer.FreeTextComparer;
        FreeComparer := pComparer As IFreeTextComparer;
        FreeComparer.MatchCase := True;
        FreeComparer.WholeWord := True;
        iResult := pComparer.Compare(x, y);
        Select Case iResult
            Case 0: Debug.WriteLine("'" + x + "'  '" + y + "' -> объекты совпадают");
            Case - 1: Debug.WriteLine("'" + x + "'  '" + y + "' -> частичное совпадение или вхождений не найдено");
        End Select;
        Return iResult;
    End Function TestCompare;
Begin
    TestCompare("Пермский", "пермский");
    TestCompare("Пермский", "перм");
    TestCompare("Пермский", "Пермский");
    TestCompare("Пермский", "Перм");
End Sub UserProc;

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

См. также:

IFreeTextComparer