求一个字符串 组的排序算法，能用delphi写最好

Question

如题，希望高手解答 谢谢了

Answer 1

如果楼主指得是字符串数组，那么建议楼主了解一下TStringList类，它比String数组功能更丰富：var
  SS : TStringList;
begin
  SS := TStringList.Create;
  SS.Add('bbbbbb');
  SS.Add('aaaaaa');
  SS.Add('dddddd');
  SS.Add('cccccc');
  ShowMessage(Format('%s'#10'%s'#10'%s'#10'%s',[ SS[0],SS[1],SS[2],SS[3] ]));//排序前
  SS.Sort; //排序
  ShowMessage(Format('%s'#10'%s'#10'%s'#10'%s',[ SS[0],SS[1],SS[2],SS[3] ]));//排序后
  SS.Free;
end;