VPF::Найти и удалить лишние пути к файлам/папкам

Elfebet

Дата 21.8.2006, 18:08 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 545
Регистрация: 15.5.2006
Где: Украина. Запорожь е.

Репутация: 2
Всего: 14

вот такая задачка, юзер жмет на кнопку и отрывается форма (c ShellListView) и тут он выбирает файлы и папки, после на нажатие кнопки OK весь список выделеных файлов загружается в листбокс. И здесь я столкнулся с проблемой что пути к файлам и папкам могут повторяться, а мне надо не повторяющиеся пути. Вот подскажите как это реализовать?
пример. Ползователь загрузил в список:

Код


c:\windows\system32\file.txt
c:\windows\
c:\program files\winamp\
c:\program files\winamp\musix.mp3
d:\image\cars\car1.jpg
c:\program files\winrar\
d:\image\cars\new\4.jpg

и по логике нужно удалить лишние пути и в результате должно получиться так

Код


c:\windows\
c:\program files\winamp\
c:\program files\winrar\
d:\image\cars\car1.jpg
d:\image\cars\new\4.jpg

--------------------

Программист не должен всё знать... он должен знать где можно посмотреть

Демо

Дата 21.8.2006, 18:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50

Код


procedure TForm1.Button5Click(Sender: TObject);
var
  i: Integer;
begin
  ListBox1.Sorted := True;
  i := 1;
  while True do
  begin
    if Copy(ListBox1.Items[i],1,Length(ListBox1.Items[i-1]))=ListBox1.Items[i-1] then
    begin
      ListBox1.Items.Delete(i);
    end
    else Inc(i);
    if i>ListBox1.Items.Count-1 then Break;
  end;
end;

--------------------

Elfebet

Дата 21.8.2006, 18:38 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 545
Регистрация: 15.5.2006
Где: Украина. Запорожь е.

Репутация: 2
Всего: 14

Супер! Спасибо!

--------------------

Программист не должен всё знать... он должен знать где можно посмотреть

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »