Unit GCFilFnd

{Renamed from FileFind.pas 6/12/1998 Paul Rice to avoid conflict with others' work.} { *** FileFind Component *** } { *** by Gabriel Cherem, Dec 1995 *** } { *** E-mail egr7jmc@npd.ufsc.br *** } { *** *** } { *** NOTICE: I DO NOT assume responsibility for any harm or rack *** } { *** due the use of this software program, although I belive it is *** } { *** quite harmless as you can see on its sourcecode. *** } { *** You can remove bugs yourself since the sourcecode is available. *** } { *** If you find a bug, please let me know. *** } { *** *** } { *** Feel free to use this software. I don't want any payment. *** } { *** But if you think this software will be usefull for you, just *** } { *** send me a postal card from your town. I am wonder to know how *** } { *** far this package has got! *** } { *** *** } { *** Postal cards can be addressed to *** } { *** *** } { *** Gabriel Cherem *** } { *** Rua Manfredo Leite 136 *** } { *** Stodieck *** } { *** 88025-110 Florianpolis, SC *** } { *** Brazil *** } { *** *** } { *** Cheers from Brazil! *** } { **************************************************************************} {$B-} {Complete Boolean Evaluation} {$G+} {286 Instructions} {$I-} {Use IOResult instead for Input/Output-Checking} {$N+} {Numeric Coprocessor} {$P+} {Open Parameters} {$T-} {Typed @ Operator} {$W-} {Windows Stack Frame} {$X+} {Extended Syntax} {$C MOVEABLE,DEMANDLOAD,DISCARDABLE

Classes

TFileFind -

Functions

Register -

Types

TChangeDirectoryEvent
TChangeDriveEvent
TSearchScope
TStopEvent

Constants

DefSearchScope
DefStopOnFirstMatch

Variables


Functions


procedure Register;


Types


TChangeDirectoryEvent =
    procedure (Sender: TObject; NewDirectory:TFileName)
    of object
event to notify Directory changing
TChangeDriveEvent =
    procedure (Sender: TObject; NewDrive:Char)
    of object
event to notify Drive changing
TSearchScope = (ssEntireDisk, ssCurrentDir, ssCurrentDirAndBelow);

TStopEvent =
    procedure (Sender: TOBject; var CanStop: Boolean)
    of object
event to notify stoping

Constants

DefSearchScope = ssEntireDisk

DefStopOnFirstMatch = true

default property values

Variables