Constructor

Module

Last Modified

Visibility

Owner

Declaration

constructor Create(const StartDir, Pattern : string;
  IncludeSubFolders, ListAllSearchedFiles, CaseSensitive : boolean; 
  SearchedFiles : TSearchedFilesSet; Log : TStrings;
  SearchInfo : TList; AnEvaluation : boolean);

Called-By Hierarchy

       TPatternSearcher.Create
   TPSMainForm.GeneralSearch┘ 
TPSMainForm.CmdSearchClick┘   

Called-By

Name	Declaration	Comments
TPSMainForm.GeneralSearch	procedure GeneralSearch;	-

Source

73    constructor TPatternSearcher.Create(const StartDir, Pattern : string;
74      IncludeSubFolders, ListAllSearchedFiles, CaseSensitive : boolean;
75      SearchedFiles : TSearchedFilesSet; Log : TStrings;
76      SearchInfo : TList; AnEvaluation : boolean);
77    begin
78      inherited Create;
79      FStartDir := StartDir;
80      FPattern := Pattern;
81      FIncludeSubFolders := IncludeSubFolders;
82      FListAllSearchedFiles := ListAllSearchedFiles;
83      FCaseSensitive := CaseSensitive;
84    
85      FSearchedFiles := SearchedFiles;
86    
87      FLog := Log;
88      FSearchInfo := SearchInfo;
89    
90      FLenPattern := Length(FPattern);
91      FEvaluation := AnEvaluation;
92    
93      FilePaths := TStringList.Create;
94      SL := TStringList.Create;
95    end;