Unit FileFind

-------------------------------------------------------------------------------------} { A "file finder" component for Delphi32. } { Copyright 1997, Patrick Brisacier and Jean-Fabien Connault. All Rights Reserved. } { This component can be freely used and distributed in commercial and private } { environments, provided this notice is not modified in any way. } { -------------------------------------------------------------------------------------} { Feel free to contact us if you have any questions, comments or suggestions at } { PBrisacier@mail.dotcom.fr (Patrick Brisacier) } { JFConnault@mail.dotcom.fr (Jean-Fabien Connault) } { You can always find the latest version of this component at: } { http://www.worldnet.net/~cycocrew/delphi/ } { -------------------------------------------------------------------------------------} { Thanks to Stépahne Pau (spau@wska.com) for enhancing features of TFileFind. } { -------------------------------------------------------------------------------------} { Date last modified: 07/04/97 } { -------------------------------------------------------------------------------------} { -------------------------------------------------------------------------------------} { TFileFind v1.06 } { -------------------------------------------------------------------------------------} { Description: } { A component that allows you to find files through drives. } { Properties: } { property DirType: TFileType; } { property FileType: TFileType; } { property FilePattern: String; } { property FilesFound: TStringList; } { property MatchCaseSensitive: Boolean; } { property MatchEnabled: Boolean; } { property MatchString: String; } { property Priority: TThreadPriority; } { property Recursive: Boolean; } { property StartDir: String; } { property OnTerminated: TNotifyEvent; } { Procedures and functions: } { procedure Execute; } { procedure ThreadExecute; } { Needs: } { TBrkApart component from Patrick Brisacier and Jean-Fabien Connault } { TMatch component from Patrick Brisacier and Jean-Fabien Connault } { } { See example contained in example.zip file for more details. } { -------------------------------------------------------------------------------------} { Revision History: } { 1.00: + Initial release } { 1.01: + Added Recursive property } { 1.02: + Added support for french and english languages } { 1.03: + Added MatchEnable, MatchString and MatchCaseSensitive properties } { + Renamed Priority property in ThreadPriority } { 1.04 + Renamed MatchEnable property in MatchEnabled } { 1.05 + Added FileType property } { 1.06 + Added DirType property (not published and not active by default) } { + Removed the FilesFound properties from the published properties } { -------------------------------------------------------------------------------------

Classes

TFileFind - *******************************************************************} { TFileFind } {
TFindThread - *******************************************************************} { TFindThread } {

Functions

Register - English Messages } {MSG_TOO_MUCH_FILES = 'Too much files.

Types

Constants

DirAttributes
FileAttributes
MSG_TOO_MUCH_FILES

Variables


Functions


procedure Register;

English Messages } {MSG_TOO_MUCH_FILES = 'Too much files.';

*******************************************************************} { procedure Register } {


Types


Constants

DirAttributes = (faReadOnly, faHidden, faSysFile, faVolumeID, faDirectory, faArchive, 0)

FileAttributes = (faReadOnly, faHidden, faSysFile, faVolumeID, faDirectory, faArchive, 0)

MSG_TOO_MUCH_FILES = 'Trop de fichiers.'

French Messages

Variables