Delphi 对应Java的ASCII的字符串大小排序

{TStringlist.sort 的CaseSensitive 是true或false,都是大小写不敏感。有点Bug,所以自定下自己的MyStringList;

解决办法是自己从TStringList派生一个类,并覆盖CompareStrings方法(把AnsiCompareStr换成CompareString)

}

type

  TMyStringList = class(TStringList)

  protected

    function CompareStrings(const S1, S2: string): Integer; override;

  end;


{ TMyStringList }

function TMyStringList.CompareStrings(const S1, S2: string): Integer;

begin

  if CaseSensitive then

    Result := CompareStr(S1, S2)

  else

    Result := CompareText(S1, S2);

end;


procedure TForm1.btn3Click(Sender: TObject);

var

  St: TStringList;

begin

  St := TMyStringList.Create;


  St.Add('refundorderNo');

  St.Add('refundTime');

  St.CaseSensitive := True;

  St.Sort;


  showmessage(St.Text);

  St.free;

end;


联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678