Unit FileFinder |
Classes |
Functions |
Register - --------------------------------------} { Register } {--------------------------------------
Types |
Constants |
Variables |
Functions |
Types |
TFileFoundEvent = procedure (Sender: TObject; Directory: String; SearchRec: TSearchRec; var Stop : Boolean) of objectThis component is a file search component here some key knowledge about this component. 1. This is a thread like component, which means it will allow other objects to do processes, but it won't stop if you shutdown your application, so put FileFinder.Stop under the Form.Close event if necessary. 2. I used orignal TSearchRec for the callback parameter, you can find it in dephi's help files. 3. If the serach is stopped then it will call the OnStop event. 4. You can stop the search after you found your file. put Stop := True(default = False) under the OnFileFound Event. 5. Property Stopped is readonly, you set it stop by call method Stop. What is New 1. StatusLabel Link: Display the directory name while searching. 2. FuzzySearch. Author Info. William Yang, yang@btinternet.com http://www.btinternet.com/~yang/
Constants |
Variables |