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;