Файлы и их поиск

[Serious]

У меня такая проблема. Я думаю проще чем свой код скидывать попросить вас о новом.
Мне нужен кусок кода в котором будет происходить поиск всех файлов внутри папки DIR
где DIR это переменная в строковом виде которая задаётся раньше.
И каждый найденный файл записывается допустим в строковый масив.
Если реально это зделать то напишите через процедуру.
И скажите как её описывать в верхней части кода.

[mihali4]

http://programmersforum.ru/showthrea...E0%E9%EB%EE%E2
На форуме есть "Поиск". Ввели бы туда фразу "поиск файлов" и давно бы уже имели результат.

[goblinyara]

procedure TForm1.Button1Click(Sender: TObject);
var
  F: TSearchRec;
  DIR: string;
  Attr: Integer;
begin
  {Искать все файлы в заданной директории}
  DIR := 'C:\*.*';
  Attr := faAnyFile - faDirectory;

  FindFirst(DIR, Attr, F);

  {Если хотя бы один файл найден, то продолжить поиск}
  if F.name <> '' then
  begin
    ListBox1.Items.Add(F.name); {Добавление в TListBox имени найденного файла}
    while FindNext(F) = 0 do
      ListBox1.Items.Add(F.name);
  end;
  FindClose(F);
end;

Здесь выводится в ListBox, и советую так и оставить, просто сделать его скрытым, и с его Items обращаться как с элементами массива.

[Serious]

mihali4
всё круто но как я понял там в оперделённой папке в подпаки он не будет влазить

[mihali4]

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

mihali4
всё круто но как я понял там в оперделённой папке в подпаки он не будет влазить

Никто не мешает подправить предложенную процедуру для возможности рекурсивного вызова...

procedure FindFiles(StartFolder, Mask: String; List: TStrings; ScanSubFolders: Boolean); 
var 
SearchRec: TSearchRec; 
FindResult: Integer; 
begin
List.BeginUpdate;
try
StartFolder:=IncludeTrailingBackslash(StartFolder);
FindResult:=FindFirst(StartFolder+'*.*', faAnyFile, SearchRec);
try
while FindResult = 0 do
begin
if SearchRec.Attr=faDirectory then
begin
if ScanSubFolders and ((SearchRec.Name<>'.') and (SearchRec.Name<>'..')) then
FindFiles(StartFolder+SearchRec.Name, Mask, List, ScanSubFolders);
end else
begin
if MatchesMask(SearchRec.Name, Mask) then
List.Add(StartFolder+SearchRec.Name);
end;
FindResult:=FindNext(SearchRec); 
end;
finally 
FindClose(SearchRec); 
end;
finally 
List.EndUpdate; 
end;
end;

З.Ы. В uses добавить Masks.

[goblinyara]

Мне нужен кусок кода в котором будет происходить поиск всех файлов внутри папки DIR

всё круто но как я понял там в оперделённой папке в подпаки он не будет влазить

хмм... а в вопросе-то сказано именно про файлы, а не файлы и подпапки...

[Serious]

mihali4
я вставил код уже goblinyara
можешь его подправить под это дело в нём проще будет редактировать. Заранее блогадарен
фаилы которые в подпапках то же

[Serious]

if MatchesMask(Name, Mask) then List.Add(StartFolder+Name);

Вот здесь выдаёт ошибку что неизвестный индификатор MatchesMask

[KORN]

procedure TForm1.FindFile(Dir:String);
Var
  SR:TSearchRec;
  FindRes: integer;
begin
  FindRes:=FindFirst(dir+'*.*',faAnyFile,SR);

  While FindRes=0 do
  begin
  application.ProcessMessages;

    if ((SR.Attr and faDirectory)=faDirectory) and
    ((SR.Name='.')or(SR.Name='..')) then
    begin
    FindRes:=FindNext(SR);
    Continue;
    end;

    if ((SR.Attr and faDirectory)=faDirectory) then
    begin
    FindFile(Dir+SR.Name+'\');
    FindRes:=FindNext(SR);
    Continue;
    end;

    CurrentFile.Caption:=dir+sr.Name; // текущий файл

    FindRes:=FindNext(SR);
  end;
  FindClose(SR);
end;

вот рабочий... если что то не получается, то сам пробуй разобраться а не нас проси

[Altera]

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

Вот здесь выдаёт ошибку что неизвестный индификатор MatchesMask

Читать надо всё!

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

З.Ы. В uses добавить Masks.