VPF::Действие Function filesearch() - Форум программистов

NewDima

Дата 7.3.2006, 10:09 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 922
Регистрация: 20.2.2006
Где: <?here?>

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

Мне нужно находить имена всех файлов в текущей директории. Как понял, здесь нужно использовать filesearch()
код для первых 10-и файлов:

Цитата

...
for i:=1 to 10 do
s:=filesearch('*.*', path);
...

так понимаю, что строке s должны присваиваться имена файлов в path, но s остается всегда пустой! Объясните, где я не прав.
И пожалуйста, не предлагайте смотреть в справке, там я не могу понять.
Если нужно писать друглй код, то предложите, пожалуйста.
И еще, как можно находить отдельно имена папок и отдельно имена файлов?

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

Начинаем черкать!

Snowy

Дата 7.3.2006, 10:13 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

http://forum.vingrad.ru/index.php?act=Sear...st&skipped=

Guedda

Дата 7.3.2006, 10:18 (ссылка)

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

Загрузка ...

Подрывник

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

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

Вот тебе функция поиска файлов (отдельно путь и файлы):

Код


uses
  ,..., Masks;
procedure FindFiles(Folder, Mask : string; SubFolders : boolean = true);
var
  SearchRec : TSearchRec;
  Result    : Integer;
begin
  Folder := IncludeTrailingBackSlash(Folder);
  Result := FindFirst(Folder + '*.*', faAnyFile, SearchRec);
  try
    while Result = 0 do
    with SearchRec do begin
      if (Attr and faDirectory) <> 0 then begin
        if SubFolders and (Name <> '.') and (Name <> '..') then

        FindFiles(Folder + Name, Mask, SubFolders);
      end { if Attr } else begin
        if MatchesMask(Name, Mask) then begin
          //Folder - путь до файла
          //Name - имя файла
        end; { if }
      end; { else }
      Result := FindNext(SearchRec);
    end; { with }
  finally { try }
    FindClose(SearchRec);
  end; { finally }
  FindClose(SearchRec);
end;

//Использование:
FindFiles('C:\', '*.*', true);

Параметр Folder - папка,в которой производить поиск
Mask - маска, по которой производить поиск
SubFolders - Флажок, если true, то поиск производить и в подпапках.

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

Ll 2

NewDima

Дата 7.3.2006, 10:26 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 922
Регистрация: 20.2.2006
Где: <?here?>

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

Как загнать тогда все полученные имена в listbox?

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

Начинаем черкать!

Romikgy

Дата 7.3.2006, 10:29 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

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

Код


procedure FindFiles(Folder, Mask : string; SubFolders : boolean = true);
var
  SearchRec : TSearchRec;
  Result    : Integer;
begin
  Folder := IncludeTrailingBackSlash(Folder);
  Result := FindFirst(Folder + '*.*', faAnyFile, SearchRec);
  try
    while Result = 0 do
    with SearchRec do begin
      if (Attr and faDirectory) <> 0 then begin
        if SubFolders and (Name <> '.') and (Name <> '..') then
        FindFiles(Folder + Name, Mask, SubFolders);
      end { if Attr } else begin
        if MatchesMask(Name, Mask) then begin
          //Folder - путь до файла
          //Name - имя файла
       Form1.ListBox1.Items.Add(Name);
        end; { if }
      end; { else }
      Result := FindNext(SearchRec);
    end; { with }
  finally { try }
    FindClose(SearchRec);
  end; { finally }
  FindClose(SearchRec);
end;

Это сообщение отредактировал(а) Romikgy - 7.3.2006, 10:31

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

NewDima

Дата 7.3.2006, 10:43 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 922
Регистрация: 20.2.2006
Где: <?here?>

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

Thanks!!!

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

Начинаем черкать!

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