Проблемы сортировки...

[Janger]

Имеется папка, я из неё загружаю картинки в ListBox.
Вот как выглядит список картинок в Windows:
//****************
1.jpg
2.jpg
3.jpg
...
9.jpg
10.jpg
11.jpg
...
19.jpg
20.jpg
21.jpg
//****************
А вот как выглядит этот список в ListBox
//****************
1.jpg
10.jpg
11.jpg
...
19.jpg
2.jpg
20.jpg
21.jpg
3.jpg
...
9.jpg
//****************
//==========================
Соответственно у меня вопрос, как можно сделать так, что бы список загружался в ListBox, так же как и в Винде?
-----
p.s. Я гуглил, предлагают километровые коды, которые очень криво работают....

[Stilet]

Так и должно быть. Сортировка строк именно так и расставляет.
Не хочешь попробовать ShellListView?

[Janger]

Сообщение от Stilet

Так и должно быть. Сортировка строк именно так и расставляет.
Не хочешь попробовать ShellListView?

Вообще, мне не нужно их выводить списком, я просто показываю что сортировка тут, не такая как мне нужна....
Думаете компонент мне поможет?

Ладно, спрошу по другому...
Как из ShellListView получить список компонентов?

Ещё проще, как получить количество записей в ShellListView ? Имя по индексу, я могу получить...
Теперь нужно цикл написать, что бы он по всем файлам пробегал.

[Stilet]

Думаете компонент мне поможет?

Он для файлов предназначен. Всмысле для работы с файловой системой, ибо юзает интерфейсы эксплорыря.

Как из ShellListView получить список компонентов?

А хелп что говорит? У него должны быть свойства, получающие список файлов в директории. У меня нет Делфи под рукой.

[Janger]

В общем, я решил проблему. Большое спасибо Stilet, навёл меня на мыслю.
Что нужно?
1) Button - вкладка Standard
2) ListBox - вкладка Standard
3) ShellListView - вкладка Samples
4) ShellListView1.Root - указываете путь к нужной папке
Далее код:...

function GetFileCount:integer;
var
  fs: TSearchRec;
  pics: Integer;
begin
  pics:=0;
  if FindFirst(Form1.ShellListView1.Root+'\*.*', faAnyFile - faDirectory - faVolumeID, fs) = 0 then
  repeat
    inc(pics);
  until
    FindNext(fs) <> 0;
  FindClose(fs);
Result := Pics;
end;


procedure TForm1.Button2Click(Sender: TObject);
var
  t: Integer;
begin
  for t:=0 to GetFileCount-1 do
  ListBox2.Items.Append(Form1.ShellListView1.Folders[t].DisplayName);
end;

Функция считает, количество файлов в папке...
Ну а потом цикл... Думаю всё ясно.
Кому надо, тот может привести данный код к более красивому виду и т.д. Я просто идею рассказал. Немного коряво конечно, но щас доделаю(это мелочи)

[Janger]

Ой, ребят. тут всё намного проще!!

procedure TForm1.Button2Click(Sender: TObject);
var
  t: Integer;
begin
  for t:=0 to ShellListView1.Items.Count-1 do
  ListBox2.Items.Append(Form1.ShellListView1.Folders[t].DisplayName{.PathName});
end;