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 |
Functions |
Register -
Types |
TChangeDirectoryEvent
TChangeDriveEvent
TSearchScope
TStopEvent
Constants |
DefSearchScope
DefStopOnFirstMatch
Variables |
Functions |
Types |
TChangeDirectoryEvent = procedure (Sender: TObject; NewDirectory:TFileName) of objectevent to notify Directory changing
TChangeDriveEvent = procedure (Sender: TObject; NewDrive:Char) of objectevent to notify Drive changing
TSearchScope = (ssEntireDisk, ssCurrentDir, ssCurrentDirAndBelow);
TStopEvent = procedure (Sender: TOBject; var CanStop: Boolean) of objectevent to notify stoping
Constants |
Variables |