[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] |
Compare 2 ansistrings, case sensitive, ignoring accents characters.
Source position: sysstrh.inc line 92
function AnsiCompareStr( |
const S1: string; |
const S2: string |
):Integer; |
AnsiCompareStr compares two strings and returns the following result:
The comparison takes into account Ansi characters, i.e. it takes care of strange accented characters. Contrary to AnsiCompareText, the comparison is case sensitive.
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, ignoring accents characters. |
Program Example49; { This program demonstrates the AnsiCompareStr function } {$H+} Uses sysutils; Procedure TestIt (S1,S2 : String); Var R : Longint; begin R:=AnsiCompareStr(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.