delphi 字符串比较函数

http://www.51zxw.net/study.asp?vip=1368926     

 首部 function AnsiStrComp(S1, S2: PChar): Integer; $[SysUtils.pas
      功能 返回比较两个指针字符串
      说明 当S1>S2返回值>0;当S1      参考 function System.CompareString
      例子 SpinEdit1.Value := AnsiStrComp(PChar(Edit1.Text), PChar(Edit2.Text))
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function AnsiStrIComp(S1, S2: PChar): Integer; $[SysUtils.pas
      功能 返回比较两个指针字符串
      说明 当S1>S2返回值>0;当S1      参考 function Windows.CompareString
      例子 SpinEdit1.Value := AnsiStrIComp(PChar(Edit1.Text), PChar(Edit2.Text))
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function AnsiStrLComp(S1, S2: PChar; MaxLen: Cardinal): Integer;
      $[SysUtils.pas
      功能 返回比较两个指针字符串指定长度
      说明 当S1>S2返回值>0;当S1      参考 function Windows.CompareString
      例子 SpinEdit1.Value := AnsiStrLComp(PChar(Edit1.Text), PChar(Edit2.Text),
      SpinEdit2.Value)
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function AnsiStrLIComp(S1, S2: PChar; MaxLen: Cardinal): Integer;
      $[SysUtils.pas
      功能 返回比较两个指针字符串指定长度
      说明 当S1>S2返回值>0;当S1      参考 function Windows.CompareString
      例子 SpinEdit1.Value := AnsiStrLIComp(PChar(Edit1.Text), PChar(Edit2.Text),