Compare two null-terminated strings. Case insensitive.
Source position: sysstrh.inc line 98
function AnsiStrIComp( |
S1: PAnsiChar; |
S2: PAnsiChar |
):Integer; |
AnsiStrIComp compares 2 PChar strings, and returns the following result:
The comparison of the two strings is case-insensitive.
| Remark: | A widestring manager must be installed in order for this function to work correctly with various character sets. |
None.
|
Compare 2 ansistrings, case insensitive, using locale settings. |
|
|
Compare 2 ansistrings, case sensitive, using locale settings. |
Program Example55; { This program demonstrates the AnsiStrIComp function } Uses sysutils; Procedure TestIt (S1,S2 : Pchar); Var R : Longint; begin R:=AnsiStrIComp(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.