[aleksnine]

Привет.
Подскажите как можно отсортировать строки в листбокс по длине символов .
Спасибо.

[lmikle]

Это типа "Ш" длиннее "г"???
Вопрос ставьте правильно...

[T-dayne]

Пузырьковой сортировкой

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TForm1.Button1Click(Sender: TObject); var I,j: integer; tmp: string; begin for j:=0 to listbox1.Items.Count-1 do for i:=0 to listbox1.Items.Count-2 do  begin   if length(listbox1.Items[i])>length(listbox1.Items[i+1]) then    begin     tmp:=listbox1.Items[i];     listbox1.Items[i]:=listbox1.Items[i+1];     listbox1.Items[i+1]:=tmp;     end;  end; end;