Сортировка по числам...

[ZuBy]

Доброго времени суток!

У меня возникла проблемка с сортировкой в ListView/ListBox.
например:
мне нужно
0
1
2
..
10
11
12

С сортировкой стандартной
0
1
10
11
12
..
2


Помогите кому приходилось сталкиватся, а то вручную перемещать много времени уходит, а в ListBox/ListView около 100-200 пунктов.

[Пепел Феникса]

а циферки это что за переменки?
или это часть сттроки Листа?

[ZuBy]

это пункты из листа

кто нить может помочь, а то у меня сроки поджимают. а я на такой "ерунде" завис.

[Пепел Феникса]

ну раз это элемерты, то переведя в Int ты отлично можешь отсортировать

[ZuBy]

что то я не совсем понял, можно поподробней?

[Пепел Феникса]

ну вы имеете строки-цифры, переводим их в тип integer и банальным сравнением мы видим что больше а что меньше...ну так и меняем порядок элементов

[ZuBy]

а есть возможность посмотреть код?

[Пепел Феникса]

ну вот стандартный пузырьковый метод:

procedure TForm1.FormCreate(Sender: TObject);
var i,j:integer;
    s:string;
begin
 randomize;
 while ListBox1.Items.Count<300 do ListBox1.Items.Add(IntToStr(Random(5000)));//заполняем

 for i:=0 to ListBox1.Items.Count-1 do
  for j:=0 to ListBox1.Items.Count-2 do
   if StrToInt(ListBox1.Items[j])>StrToInt(ListBox1.Items[j+1])
    then begin
          s:=ListBox1.Items[j];
          ListBox1.Items[j]:=ListBox1.Items[j+1];
          ListBox1.Items[j+1]:=s;
         end;//сортируем...алгоритм можно оптимизировать конечно
end;

[ZuBy]

Пепел Феникса спасибо