IFreeTextComparer.MatchCase

Copy example

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 + "' -> objects match");
            Case - 1: Debug.WriteLine("'" + x + "'  '" + y + "' - partial match or occurrence is found");
        End Select;
        Return iResult;
    End Function TestCompare;
Begin
    TestCompare("Permskyy", "permskyy");
    TestCompare("Permskyy", "perm");
    TestCompare("Permskyy", "permskyy");
    TestCompare("Permskyy", "Perm");
End Sub UserProc;