Compare 2 ansistrings, case insensitive, using locale settings.
Source position: sysstrh.inc line 94
function AnsiCompareText( |
const S1: string; |
const S2: string |
):Integer; |
AnsiCompareText compares two strings and returns the following result:
the comparison takes into account Ansi characters, i.e. it observes the locale. Contrary to AnsiCompareStr, the comparison is case insensitive.
| Remark: | A widestring manager must be installed in order for this function to work correctly with various character sets. |
None.
|
Convert possible line-endings to the currently valid line ending. |
|
|
Compare 2 ansistrings, case insensitive, using locale settings. |
Program Example49; { This program demonstrates the AnsiCompareText function } {$H+} Uses sysutils; Procedure TestIt (S1,S2 : String); Var R : Longint; begin R:=AnsiCompareText(S1,S2); Write ('"',S1,'" is '); If R<0 then write ('less than ') else If R=0 then Write ('equal to ') else Write ('larger than '); Writeln ('"',S2,'"'); end; Begin Testit('One string','One smaller string'); Testit('One string','one string'); Testit('One string','One string'); Testit('One string','One tall string'); End.