VPF::Получение списка каталогов без подкаталогов

Mixasik

Дата 14.9.2008, 18:57 (ссылка)

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

Загрузка ...

Little Delphi monstr

Профиль
Группа: Участник
Сообщений: 195
Регистрация: 4.10.2006
Где: Волгоград

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

Уважаемы форумчане подскажите как получить в заданном каталоге список каталогов, которые содержат только файлы, то есть не содержат других директорий? И хотелось бы узнать самый быстрый чпеди имеющихся способов, хотя лучше оптимальное сочетание цена/качество или другими словами затраченное время/время поиска?

BaD_SeCt0R

Дата 14.9.2008, 19:55 (ссылка)

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

Загрузка ...

Lazy Coder

Профиль
Группа: Участник
Сообщений: 432
Регистрация: 9.10.2006
Где: Анапа

Репутация: 4
Всего: 18

Обычным рекурсивным поиском директорий, только прекращать поиск в директориях с вложениями в них других папок и исключать их из списка

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

Кто владеет информацией - владеет миром. (С) Френсис Бэкон.

Mixasik

Дата 14.9.2008, 19:59 (ссылка)

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

Загрузка ...

Little Delphi monstr

Профиль
Группа: Участник
Сообщений: 195
Регистрация: 4.10.2006
Где: Волгоград

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

Исключать... А если в исключенной папке есть подкаталог, который не содержит директорий?То есть который нужен...

BaD_SeCt0R

Дата 14.9.2008, 20:27 (ссылка)

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

Загрузка ...

Lazy Coder

Профиль
Группа: Участник
Сообщений: 432
Регистрация: 9.10.2006
Где: Анапа

Репутация: 4
Всего: 18

Цитата(Mixasik @ 14.9.2008, 19:59

)

Исключать... А если в исключенной папке есть подкаталог, который не содержит директорий?То есть который нужен..

Тогда искать все папки и создавать список. Во время поиска исключать катологосодержащие папки из списка.

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

Кто владеет информацией - владеет миром. (С) Френсис Бэкон.

Mixasik

Дата 14.9.2008, 20:31 (ссылка)

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

Загрузка ...

Little Delphi monstr

Профиль
Группа: Участник
Сообщений: 195
Регистрация: 4.10.2006
Где: Волгоград

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

Вот только как исключить каталогосодержащие... Ну сейчас читаю как раз про поиск что - нибудь придумаю...

Mixasik

Дата 15.9.2008, 00:16 (ссылка)

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

Загрузка ...

Little Delphi monstr

Профиль
Группа: Участник
Сообщений: 195
Регистрация: 4.10.2006
Где: Волгоград

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

Код


i := 0;
while i <= str.Count - 2 do
  begin
    j := i+1;
    found := false;
    st1 := str.Strings[i] + '\';
    While (j <= str.Count - 1 ) and (not found) do
      begin
        st2 := str.Strings[j];
        if pos(St1, st2) <> -1
          then
            begin
              Str.Delete(i);
              dec(i);
              found := true;
            end;
        inc(j)
      end;
     inc(i);
  end;

Вот и проблема... Список папок находится в str : TStringList - этот кусок выделяет только те папки, которые не содержат подкаталогов, то есть не входят подстрокую в любую другую строку, но алгоритм работает неверно! Почему неверно понять не могу, вроде все просто...

Это сообщение отредактировал(а) Mixasik - 15.9.2008, 00:18

BaD_SeCt0R

Дата 15.9.2008, 08:55 (ссылка)

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

Загрузка ...

Lazy Coder

Профиль
Группа: Участник
Сообщений: 432
Регистрация: 9.10.2006
Где: Анапа

Репутация: 4
Всего: 18

Беру пример из ДРКБ и чуть-чуть переделываю:

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure ScanDir(Dir:string);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
Procedure TForm1.ScanDir(Dir:string);
var
  SearchRec:TSearchRec;
  HaveDir:boolean;
begin
  HaveDir:=false;
  if Dir<>'' then if Dir[length(Dir)]<>'\' then Dir:=Dir+'\';
  if FindFirst(Dir+'*.*', faAnyFile, SearchRec)=0 then
  repeat
    if (SearchRec.name='.') or (SearchRec.name='..') then continue;
    if (SearchRec.Attr and faDirectory)<>0 then
     begin
      HaveDir:=true;
      ScanDir(Dir+SearchRec.name)
     end;
  until FindNext(SearchRec)<>0;
  if not HaveDir then
    ListBox1.Items.Add(Dir);
  FindClose(SearchRec);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ScanDir('D:');
end;

end.

Пустые или содержащие только файлы директории добавляются в листбокс.

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

Кто владеет информацией - владеет миром. (С) Френсис Бэкон.

Mixasik

Дата 15.9.2008, 22:19 (ссылка)

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

Загрузка ...

Little Delphi monstr

Профиль
Группа: Участник
Сообщений: 195
Регистрация: 4.10.2006
Где: Волгоград

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

Огромное спасибо!

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