Lazarus读取文件夹中所有文件的方法-DEMO

猫工

希望对大家有用
//www.lazarus.net.cn收集整理

1. unit RicercaFile;
2. {$mode objfpc}{$H+}
4. { TForm1 }
6. {
7. type  TFileReader = class(TFileSearcher)  public    constructor Create;    procedure OnFileFound(FileIterator: TFileIterator);  end;...constructor TFileReader.Create;begin  inherited Create;  FOnFileFound := @OnFileFound;end;...var  Searcher: TFileReader;begin  Searcher := TFileReader.Create;  Searcher.OnFileFound := @Searcher.OnFileFound;  // search the files on C:\Files directory  // search only on .txt and .html files  // recursive  // use ; as mask separator (to separate *.txt and *.html)  Searcher.Search('C:\Files','*.txt;*.html',true,';');end;}
9. interface
10. uses  Classes, SysUtils,  FileUtil //aggiunto per leggere i file  ;
11. type  TFileReader = class(TFileSearcher)  public    constructor Create;    procedure OnFileFoundNew(FileIterator: TFileIterator);  end;
12. implementationuses unit1;
14. constructor TFileReader.Create;begin  inherited Create;   OnFileFound := @OnFileFoundNew;end;
15. procedure TFileReader.OnFileFoundNew(FileIterator: TFileIterator);begin   Form1.Lista_File.Items.Add(FileIterator.Path + '-->' + FileIterator.FileInfo.Name + '(' + IntToStr(FileIterator.FileInfo.Attr) + ')');end;
16. end.
18. //--------------------------------------------------------------------------------
19. unit Unit1; 
20. {$mode objfpc}{$H+}
21. interface
22. uses  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,  StdCtrls,RicercaFile;
23. type
24.   { TForm1 }
25.   TForm1 = class(TForm)    Button1: TButton;    Lista_File: TListBox;    procedure Button1Click(Sender: TObject);  private    { private declarations }  public    { public declarations }  end;
26. var  Form1: TForm1; 
27. implementation
28. procedure TForm1.Button1Click(Sender: TObject);var   Searcher: TFileReader;begin     Searcher := TFileReader.Create;     // search the files on C:\Files directory     // search only on .txt and .html files     // recursive     // use ; as mask separator (to separate *.txt and *.html)      Searcher.Search('C:\Lavoro','*.mdb;*.html',true,';');end;
29. initialization  {$I unit1.lrs}
30. end.

复制代码

xusonglie

可惜源码的排版不太好！如果能有原文件下载就好了