Delphi-CompareText 函数

函数名称 CompareText

所在单元 System.SysUtils

函数原型 function CompareText(const S1, S2: string): Integer;

函数功能 比较两个字符串的大小，返回值为 -1 [ 当 S1<S2 时 ] 或 0 [ 当 S1=S2  时 ] 或 1 [当 S1>S2  时].

             比较规则：不区分大小写；两个字符串的字符依次从左至右逐一比较，大小取决于字符在ASCII表中的序号，序号大的对应的字符为大。

函数备注 CompareText 不建议用。 建议使用 AnsiCompareText函数，功能和使用方法与 CompareText类似。

举例如下        

     

 1 var
 2   s1, s2: string;
 3   iResult: Integer;
 4 begin
 5   s1 := 'Bac';
 6   s2 := 'bac';
 7   iResult := CompareText(s1, s2);
 8   case iResult of
 9     - 1: ShowMessage('s1 < s2');
10     0: ShowMessage('s1 = s2');// 本次结果在此，不区分大小写
11     1: ShowMessage('s1 > s2'); 12   end;
13 end;

 

转载于:https://www.cnblogs.com/chinacodegear/p/3623247.html