java字符串大小排序函数,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;