Procedure

Module

Last Modified

Comments

This is the GeneralSearch method

Visibility

Owner

Declaration

procedure GeneralSearch;

Calls Hierarchy

TPSMainForm.GeneralSearch
 ├TPatternSearcher.Create
 └TPatternSearcher.Search
   ├TPatternSearcher.SearchWithPos
   └TPatternSearcher.SearchWithUC

Called-By Hierarchy

   TPSMainForm.GeneralSearch
TPSMainForm.CmdSearchClick┘ 

Calls

Name	Declaration	Comments
TPatternSearcher.Create	constructor Create(const StartDir, Pattern : string; IncludeSubFolders, ListAllSearchedFiles, CaseSensitive : boolean; SearchedFiles : TSearchedFilesSet; Log : TStrings; SearchInfo : TList; AnEvaluation : boolean);	-
TPatternSearcher.Search	procedure Search;	-

Called-By

Name	Declaration	Comments
TPSMainForm.CmdSearchClick	procedure CmdSearchClick(Sender: TObject);	-

Source

94    procedure TPSMainForm.GeneralSearch;
95    // this is the GeneralSearch method
96    var
97      PS : TPatternSearcher;
98      IsEval : boolean;
99    begin
100     (*$IFDEF Eval*)
101     IsEval := true;
102     (*$ELSE*)
103     IsEval := false;
104     (*$ENDIF*)
105   
106     PS := TPatternSearcher.Create(cmbRootDir.Text, cmbPattern.Text,
107       chkIncludeSubFolders.Checked, chkListAllSearched.Checked,
108       chkCaseSensitive.Checked, SF, Memo.Lines, nil, IsEval);
109     try
110       PS.Search;
111     finally
112       PS.Free;
113     end;
114   end;