[HTTqp]

Подскажите как отсортировать по методу сначала папки потом файлы. Код написал а сортировку не получается осуществить, читал пробывал что в инете есть но увы. Код расписан так что все вроде понятно

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

procedure TForm1.FormCreate(Sender: TObject); var WFD:WIN32_Find_Data; HFile:THandle; Attr,Path:String; begin  ListView1.Items.BeginUpdate;{Начинаем прорисовку}  ListView1.Items.Clear;  Path:=IncludeTrailingPathDelimiter('C:\Windows');{Добавляем '\' при его отсутствиии}  HFile:=FindFirstFile(PChar(Path+'*.*'),WFD);{Ищем файлы только в указанном каталоге}  if HFile<>INVALID_HANDLE_VALUE then {Проверяем отсутствие ошиьок}   begin    repeat    if (WFD.dwFileAttributes and faHidden)<>2 then{Условие показыать\не показывать скрытые файлы}     if StrPas(WFD.cFileName)<>'.' then      with ListView1.Items.Add do       begin        if (WFD.dwFileAttributes and faDirectory)<>faDirectory then         begin          Caption:=WFD.cFileName;          SubItems.Add(ExtractFileExt(WFD.cFileName));{Выделяем расширение}          SubItems.Add('размер');{Размер файла}         end else          begin           Caption:=(WFD.cFileName);{Имя папки}           SubItems.Add('[Папка]');{Указываем что это папка}           SubItems.Add('размер');          end;         SubItems.Add('Дата');{Время создания папки\файла}         Attr:='----';         if (WFD.dwFileAttributes and faArchive)<>0 then Attr[1]:='a';{Архивный}         if (WFD.dwFileAttributes and faReadOnly)<>0 then Attr[2]:='r';{Только чтение}         if (WFD.dwFileAttributes and faHidden)<>0 then Attr[3]:='h';{Скрытый}         if (WFD.dwFileAttributes and faSysFile)<>0 then Attr[4]:='s';{Системный}         SubItems.Add(Attr);{Атрибуты файла\папки}       end;       application.ProcessMessages;  { Чтобы форма не сильно тормозила во время поиска}    until FindNextFile(HFile,WFD)<>True;    Winapi.Windows.FindClose(HFile);   end;   ListView1.Items.EndUpdate;{Заканчиваем прорисовку файлов} end;

[Alegun]

Можно проще

[HTTqp]

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

Можно проще

Нет этот вариант не подходит. Хотелось бы без использования лишних компонентов обойтись.

[Alegun]

А вы ещё не игрались со свойством SortType у ListView? По умолчанию оно задано как stNone

[Freeman]

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

Хотелось бы без использования лишних компонентов обойтись.

А Shell Controls -- разве не стандартные компоненты?

[HTTqp]

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

А вы ещё не игрались со свойством SortType у ListView? По умолчанию оно задано как stNone

Пробывал результатов не дало.

[icWasya]

Кстати вот этой поверки будет мало

Код:

1	if StrPas(WFD.cFileName)<>'.' then

поскольку вторым элементом каталога идет '..'

А по сабжу - написать свою процедуру сравнения элементов
Например такую

Код:

1 2 3 4 5 6 7

procedure TForm1.ListView_Compare(Sender: TObject; Item1, Item2: TListItem;   Data: Integer; var Compare: Integer); begin   if (Item1.Subitems[0] = '[Папка]' )and(Item2.Subitems[0] <> '[Папка]') then     Compare:= 1 else   if (Item1.Subitems[0] <> '[Папка]' )and(Item2.Subitems[0] = '[Папка]') then     Compare:= -1 else     Compare:=CompareText(Item1.Caption,Item2.Caption); end;

И присвоить её

Код:

1	ListView1.OnCompare     :=  ListView_Compare;

[HTTqp]

Пишут можно через TStringList сделать а как не написано. Может тут кто знает?

[Alegun]

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

Пишут можно через TStringList сделать...

В него можно сначало имена файлов/папок с путями вогнать, отсортировать по критерию методом этого класса и обратно в ListView загрузить - двойная работа одним словом