Поиск файлов в Delphi

[Алена-X]

Никто не мог бы мне подсказать, как написать программу на Delphi, которая ищет файлы, и чтобы с ними можно было что-либо делать? Я поискала решение задачи в Сети, но все рецепты там, во-первых, какие-то мутные, во-вторых, не работают.



Заранее благодарю.

[execom]

1)Создаешь новый проект.
2)Кидаешь на форму Listbox1 и Button1
3)Двойной клик по Button1
4)Копируешь исходник ниже

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Caption:='Поиск';
  BorderStyle:=bsSizeable;
  Position:=poScreenCenter;
  Button1.Caption:='Каталог';
  Width:=470;
  Height:=300;
  ListBox1.Width:=457;
  ListBox1.Height:=233;
  ListBox1.Top:=0;
  ListBox1.Left:=0;
  Button1.Width:=75;
  Button1.Height:=25;
  Button1.Top:=240;
  Button1.Left:=8;
end;

procedure FindFile(path : PChar);
type
 PathBuf = array[0..MAX_PATH] of char;
var
  Buf : PathBuf;
    H : THandle;
    R : TWIN32FindData;
    I : integer;
begin
  Application.ProcessMessages;
  lstrCpy(Buf, #0);
  LStrCat(Buf,Path);
  LStrCat(Buf,#42#46#42);
  H:=FindFirstFile(Buf,R);
  while H<>0 do
    begin
      if  ((R.dwFileAttributes
      and   FILE_ATTRIBUTE_DIRECTORY)=FILE_ATTRIBUTE_DIRECTORY)
      and ((R.cFileName[0]=#46)
      or   (R.cFileName[1]=#46)) then
        begin
          if not FindNextFile(H,R) then break;
          Continue;
        end;
      if ((R.dwFileAttributes
      and  FILE_ATTRIBUTE_DIRECTORY)=FILE_ATTRIBUTE_DIRECTORY) then
        begin
          LstrCpy(Buf,#0);
          LStrCat(Buf,Path);
          LStrCat(Buf,R.cFileName);
          LStrCat(Buf,#92);
          FindFile(Buf);
          if not FindNextFile(H,R) then break;
          Continue;
        end;
     i:=0;
     while true do
       if R.cFileName[i]=#0
       then break
       else inc(i);
     LstrCpy(Buf,#0);
     LStrCat(Buf,R.cFileName);
     Form1.ListBox1.Items.Add(String(Path)+R.cFileName);
     Form1.Refresh;
     if not FindNextFile(H,R) then break;
    end;
  Windows.FindClose(H);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  st : string;
begin
  Button1.Enabled:=false;
  if SelectDirectory('Выберите каталог для поиска','',st)
  then FindFile(PChar(st));
  Button1.Enabled:=true;
end;

end.

5)Вставляешь его с заменой вместо своей заготовки нового приложения
6)Жмешь F9
7)Радуешься

А если серьезно то найти инфу о поиске файлов совсем не трудно.

[phomm]

Там, где двойной клик по кнопке, надо ещё двойной клик по форме (для формкреэйт)

[execom]

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

Там, где двойной клик по кнопке, надо ещё двойной клик по форме (для формкреэйт)

Черт возьми.. Это ты самую суть ухватил)

[Алена-X]

Спасибо за код, обязательно опробую, только вам не кажется, что процедуру FindFile(path : PChar) нужно сперва объявить в разделе public или private?

И еще, нельзя ли все прокомментрировать, чтобы было понятно что тут за что отвечает? И - если уже совсем шиковать - нельзя ли код покороче?

[Volkogriz]

Если процедура стоит выше чем процедура которая вызывает подпрограммку и не имеет компонентов формы и больше не где не используется то её и не надо больше не где видеть и ей тоже не надо не кого видеть
то есть не обязательно её объявлять всем глобально в разделе public нет смысла
как то так

[Алексей_2012]

хах, а зачем по форме щелкать? Тут же в основном заданы координаты и имена, и без этого заработает

[Пепел Феникса]

Сообщение от Алексей_2012

хах, а зачем по форме щелкать? Тут же в основном заданы координаты и имена, и без этого заработает

двойной клик по форме в дизайнере переносит нас к событию OnCreate.

[Алена-X]

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

1)Создаешь новый проект.
2)Кидаешь на форму Listbox1 и Button1
3)Двойной клик по Button1
4)Копируешь исходник ниже

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Caption:='Поиск';
  BorderStyle:=bsSizeable;
  Position:=poScreenCenter;
  Button1.Caption:='Каталог';
  Width:=470;
  Height:=300;
  ListBox1.Width:=457;
  ListBox1.Height:=233;
  ListBox1.Top:=0;
  ListBox1.Left:=0;
  Button1.Width:=75;
  Button1.Height:=25;
  Button1.Top:=240;
  Button1.Left:=8;
end;

procedure FindFile(path : PChar);
type
 PathBuf = array[0..MAX_PATH] of char;
var
  Buf : PathBuf;
    H : THandle;
    R : TWIN32FindData;
    I : integer;
begin
  Application.ProcessMessages;
  lstrCpy(Buf, #0);
  LStrCat(Buf,Path);
  LStrCat(Buf,#42#46#42);
  H:=FindFirstFile(Buf,R);
  while H<>0 do
    begin
      if  ((R.dwFileAttributes
      and   FILE_ATTRIBUTE_DIRECTORY)=FILE_ATTRIBUTE_DIRECTORY)
      and ((R.cFileName[0]=#46)
      or   (R.cFileName[1]=#46)) then
        begin
          if not FindNextFile(H,R) then break;
          Continue;
        end;
      if ((R.dwFileAttributes
      and  FILE_ATTRIBUTE_DIRECTORY)=FILE_ATTRIBUTE_DIRECTORY) then
        begin
          LstrCpy(Buf,#0);
          LStrCat(Buf,Path);
          LStrCat(Buf,R.cFileName);
          LStrCat(Buf,#92);
          FindFile(Buf);
          if not FindNextFile(H,R) then break;
          Continue;
        end;
     i:=0;
     while true do
       if R.cFileName[i]=#0
       then break
       else inc(i);
     LstrCpy(Buf,#0);
     LStrCat(Buf,R.cFileName);
     Form1.ListBox1.Items.Add(String(Path)+R.cFileName);
     Form1.Refresh;
     if not FindNextFile(H,R) then break;
    end;
  Windows.FindClose(H);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  st : string;
begin
  Button1.Enabled:=false;
  if SelectDirectory('Выберите каталог для поиска','',st)
  then FindFile(PChar(st));
  Button1.Enabled:=true;
end;

end.

5)Вставляешь его с заменой вместо своей заготовки нового приложения
6)Жмешь F9
7)Радуешься

А если серьезно то найти инфу о поиске файлов совсем не трудно.

Проверила, не работает. Отладчик ругается вот этот модуль в списке uses: FileCtr1, и вот на эту строчку:

if SelectDirectory('Выберите каталог для поиска', '', ST) then

Говорит, нету такой команды: SelectDirectory

[Пепел Феникса]

Проверила, не работает. Отладчик ругается вот этот модуль в списке uses: FileCtr1, и вот на эту строчку:

в коде FileCtrl, буква а не цифра.