сортировка файлов в Filelistbox

[Dennikid]

как сделать сортировку файлов в виде:
1.txt
2.txt
3.txt
4.txt
5.txt
6.txt
7.txt
8.txt
9.txt
10.txt
11.txt
12.txt

а то у меня получается:
1.txt
10.txt
11.txt
12.txt
2.txt
3.txt
4.txt
5.txt
6.txt
7.txt
8.txt
9.txt

[BOBAH13]

Ну если по возростанию числа, только числа. То почему бы их не переводить в число ( использовать val ) и если ошибка равна 0 то сравниваем < > =... а если ошибка не ноль то ставим там или в начала или в конец, зависит от систуации...

[Dennikid]

а если файл будет текст с числом, типа свет1.txt ? тогда как? или придется переименовывать файлы?

[BOBAH13]

Ну тогда строим алгоритм свой... ну основе быстрой сортировки. Ничего сложного по сути. Алгоритм быстрый сортировки присутствует в сети в различных формах. Делаем функцию где два параметра текст в ней и делаем проверку наших данных ну там что 2 < 10 и т.п. И Возращаем -1, 0, 1... а в самой сортировке проверяем полученный значения и соответственно ставим строку куда надо.

[Dennikid]

а какими командами он сортирует в FileListBox'e? случаем не знаешь?

[Alter]

простой способ для этого:

procedure TForm1.Button2Click(Sender: TObject);
var I,II,J :Integer;
    Buf1,Buf2 :String;
 Function GetVal(S :String):Integer;
 begin
  Result := StrToIntDef(Copy(S, 1, Pos('.', S)-1), -1);
 end;
begin //Сортировка
  II := FileListBox1.Items.Count;
 If II>0 then
 For I:=0 To II-1 Do
 For J:=I+1 To II-1 Do
 begin
   Buf1 := FileListBox1.Items.Strings[I];
   Buf2 := FileListBox1.Items.Strings[J];
  If GetVal(Buf2)<GetVal(Buf1) then
  begin
   FileListBox1.Items.Strings[I] := Buf2;
   FileListBox1.Items.Strings[J] := Buf1;
  end;
 end;
end;

[Dennikid]

спасибо, пригодилось.

[Рашид]

Большое спасибо!!!