求一个字符串 组的排序算法，能用delphi写最好
如题，希望高手解答 谢谢了

[解决办法]
如果楼主指得是字符串数组，那么建议楼主了解一下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;