ListBox сортировка данных

[one1991]

люди каким образом в ListBox можно отсортировать данные например по имени или кол-ву символов?

[vovk]

ну по количеству можно так

var
i,x,y:integer;
str_:String;
begin
for i:=0 to ListBox1.Items.Count-2 do
begin
 str_:=ListBox1.Items.Strings[ListBox1.Items.Count-1];
 y:=ListBox1.Items.Count-1;
  for x :=ListBox1.Items.Count - 1 downto  i do
  begin
if length(ListBox1.Items.Strings[x])<=Length(str_) then
       begin
         str_:=ListBox1.Items.Strings[x];
         y:=x;
       end;
  end;

           ListBox1.Items.Delete(y);
           ListBox1.Items.Insert(i,str_);
end;
end;

[Китти]

а как можно отсортировать по расширению????

[vovk]

расширению чего? листбокс содержит массив строк.
Телепатну, у вас там список файлов, тогда

var
i,x,y:integer;
str_:String;
begin
for i:=0 to ListBox1.Items.Count-2 do
begin
 str_:=ListBox1.Items.Strings[ListBox1.Items.Count-1];
 y:=ListBox1.Items.Count-1;
  for x :=ListBox1.Items.Count - 1 downto  i do
  begin
if ExtractFileExt(ListBox1.Items.Strings[x])<=ExtractFileExt(str_) then
       begin
         str_:=ListBox1.Items.Strings[x];
         y:=x;
       end;
  end;

           ListBox1.Items.Delete(y);
           ListBox1.Items.Insert(i,str_);
end;
end;

как говорится найдите 10 отличий (а если честно 1)

[Китти]

Спасибо!!!!

[Китти]

Мне дали задание сделать программу, в которой нужно сделать сортировку файлов по расширению.
Я добавила компоненты DriveComboBox,DirectoryListBox,File ListBox и FilterComboBox. При запуске программы, с помощью этих компонентов я выбираю папку, в которой хотела бы сделать сортировку.
Далее я добавила стринггрид, в котором 2 столбца, в 1 столбце он размещает информацию из FileListBox-а с файлами из папки, во 2-ом расширение...

Вот я теперь ищу информацию как вывести во 2 столбце расширение...
а сортировку скорее всего нужно сделать по алфавиту во 2 столбце и связать его с 1 столбцом... и получится что-то вроде сортировки по расширению...

Надеюсь на вашу помощь