如何对字符串进行排序[50分求答案](50分)

已知下列的字符串列表位于一个TlistBox控件中,如何使其按长度从大到小的顺序排列出来:
rewr
aa
fewqr
fasdf
fewqtr
fq34t5
453245
uyityui
...

知道的大侠请指点,用一个Button Click事件写代码,请解答一下,谢谢.

有很多排序算法阿，太懒得话就用 Tstringlist .sort

newyj 楼上的方法铁定不行
楼主的要求是要按长度从大到小排序。
写个简单的冒泡排序吧
var
tS:string;
i,j:integer;
Changed:Boolean;
begin
//排序 ,冒泡法
for i := 0 to ListBox.Count -1 do
begin
Changed := False;
for j := 0 to ListBox.Count - i - 2 do
begin
if Length(ListBox.Items[j])<Length(ListBox.Items[j+1]) then
begin
Changed := True;
tS:= ListBox.Items[j];
ListBox.Items[j] := ListBox.Items[j+1];
ListBox.Items[j+1] := tS;
end;
end;
if Not Changed then Break;
end;
end;

接受答案了.