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類似。

舉例如下        

     

var
  s1, s2: string;
  iResult: Integer;
begin
  s1 := 'Bac';
  s2 := 'bac';
  iResult := CompareText(s1, s2);
  case iResult of
    - 1: ShowMessage('s1 < s2');
    0: ShowMessage('s1 = s2');// 本次結果在此，不區分大小寫
    1: ShowMessage('s1 > s2'); 12   end;
end;