[Cheater]

Приветствую!

Помогите пожалуйста вот эту программу перевести в компонент:
http://www.delphisources.ru/pages/fa...r_subdirs.html

Как получить список файлов со всеми подкаталогами

Код:

procedure ScanDir(StartDir: string; Mask: string; List: TStrings);
var
  SearchRec: TSearchRec;
begin
  if Mask = '' then
    Mask := '*.*';
  if StartDir[Length(StartDir)] <> '\' then
    StartDir := StartDir + '\';
  if FindFirst(StartDir + Mask, faAnyFile, SearchRec) = 0 then
  begin
    repeat Application.ProcessMessages;
      if (SearchRec.Attr and faDirectory) <> faDirectory then
        List.Add(StartDir + SearchRec.Name)
      else if (SearchRec.Name <> '..') and (SearchRec.Name <> '.')thenbegin
        List.Add(StartDir + SearchRec.Name + '\');
      ScanDir(StartDir + SearchRec.Name + '\', Mask, List);
  end;
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
end;

Пример вызова, параметры 1. имя папки 2. маска, по умолчанию *.* 3. хранилище для резульатат, любой наследник от TString, например TStringList

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Items.Clear;
  ScanDir('c:', '', ListBox1.Items);
  Label1.Caption := IntToStr(ListBox1.Items.Count);
end;

[Человек_Борща]

А можно узнать зачем вам именно компонент?
Реализуйте класс на основе TstringList и все.

[Cheater]

Сообщение от Человек_Борща

А можно узнать зачем вам именно компонент?
Реализуйте класс на основе TstringList и все.

Да в том то и дело, что нужно именно компонент, будь он неладен...
Курсовик-хвост, а на носу диплом...
Сам то я ДБА и юниксоид, а в дельфи мало что понимаю
В ответ конечно же могу помочь чем могу.

[lmikle]

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

Да в том то и дело, что нужно именно компонент, будь он неладен...
Курсовик-хвост, а на носу диплом...
Сам то я ДБА и юниксоид, а в дельфи мало что понимаю
В ответ конечно же могу помочь чем могу.

Ну и в чем проблема?

Код:

type
  TSearchFiles = class(TComponent)
  private
    FFiles : TStringList;
    FRoot : String;
    FIncludeSubfolders : Boolean;
    FMasks : TStringList;
  public
    constructor Create(AOwner : TComponent); override;
    destructor Destroy; override;
 
    procedure Execute;

    property Files : TStringList read FFiles; 
  published
    property Root : String read FRoot write FRoot;
    property IncludeSubfolders : Boolean read FIncludeSubfolders write FIncludeSubfolders;
    property Masks : TStingList read FMasks;
  end;

Ну и теперь сделать реализацию 3х методов и написать поцку регистрации компонента.

[Assistant]

мож это и это поможет

[Cheater]

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

Ну и в чем проблема?

Код:

type
  TSearchFiles = class(TComponent)
  private
    FFiles : TStringList;
    FRoot : String;
    FIncludeSubfolders : Boolean;
    FMasks : TStringList;
  public
    constructor Create(AOwner : TComponent); override;
    destructor Destroy; override;
 
    procedure Execute;

    property Files : TStringList read FFiles; 
  published
    property Root : String read FRoot write FRoot;
    property IncludeSubfolders : Boolean read FIncludeSubfolders write FIncludeSubfolders;
    property Masks : TStingList read FMasks;
  end;

Ну и теперь сделать реализацию 3х методов и написать поцку регистрации компонента.

Прошу прощения за собственную тупость, а что значат эти три метода и поцка?

[Cheater]

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

мож это и это поможет

Спасибо, это видимо здорово и красиво, но мне бы попроще, чтобы разобраться...

[Человек_Борща]

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

Прошу прощения за собственную тупость, а что значат эти три метода и поцка?

Вам нужно их реализовать самостояельно.

[Cheater]

Сообщение от Человек_Борща

Вам нужно их реализовать самостояельно.

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

[Assistant]

не поцках, а процках (процедурах), прочитайте про классы в Delphi и их реализацию: Методы и процедуры и т.д.

P.S.: процка регистрации это вот это:

Код:

procedure Register;

....................

implementation

....................

procedure Register;
begin
  RegisterComponents('Samples', [TSearch]);
  // указываем какой класс в какую вкладку компонентов запихивать.
end;

[einstein]

компонент должен быть визуальным или не визуальным? если визуальным, то породи его от ТЛистбокс и просто добавь метод Скандир. последний параметр не нужен будет.

[Assistant]

тогда уже лучше от TTreeView, красивее будет )) для большого кол-ва директорий и поддиректорий.

[Cheater]

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

компонент должен быть визуальным или не визуальным? если визуальным, то породи его от ТЛистбокс и просто добавь метод Скандир. последний параметр не нужен будет.

Блин, народ, вы мне моск загрузили просто на полную уже
Я и так то не особо, да еще и столько советов, что и не знаю за что именно теперь лучше браться...
Компонент думаю что не визуальный.
Просто поиск директорий и файлов по указанному пути и сохранение результата в файл.
Путь поиска и имя файла сохранения просто задается в свойствах компонента.

[Cheater]

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

[Cheater]

Код:

unit Component1;

interface

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

type
  TComponent1 = class(TComponent)
   procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
  published
    { Published declarations }

  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TComponent1]);
end;
{ WWW }
constructor Create(AOwner:TComponents);
begin
  inherited Create(AOwner);
  Options := Options + [ofFileMustExist, ofPathMustExist];
procedure ScanDir(StartDir: string; Mask: string; List: TStrings);
var
  SearchRec: TSearchRec;
begin
  if Mask = '' then
    Mask := '*.*';
  if StartDir[Length(StartDir)] <> '\' then
    StartDir := StartDir + '\';
  if FindFirst(StartDir + Mask, faAnyFile, SearchRec) = 0 then
  begin
    repeat Application.ProcessMessages;
      if (SearchRec.Attr and faDirectory) <> faDirectory then
        List.Add(StartDir + SearchRec.Name)
      else if (SearchRec.Name <> '..') and (SearchRec.Name <> '.')then
      begin
        List.Add(StartDir + SearchRec.Name + '\');
      ScanDir(StartDir + SearchRec.Name + '\', Mask, List);
  end;
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Items.Clear;
  ScanDir('Z:\Downloads', '*.*', ListBox1.Items);
  ListBox1.Items.SaveToFile('Z:\Dir.txt');
  Close;
end;


end;
end.