paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 05:36:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

added reg expr to find in files from Bob

Browse Source 
git-svn-id: trunk@3433 -
This commit is contained in:
mattias 2002-10-01 15:45:59 +00:00
parent 8e51f85372
commit db0d345d35
1 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
ide/uniteditor.pp
View File

@ -3335,7 +3335,7 @@ Begin
if FindInFilesDialog.WhereRadioGroup.ItemIndex = 1 then
begin
for i:= 0 to self.EditorCount -1 do
//only if file exist on disk
//only if file exists on disk
if FilenameIsAbsolute(Editors[i].FileName)
and FileExists(Editors[i].FileName) then
TheFileList.Add(Editors[i].FileName);
@ -3355,11 +3355,19 @@ Begin
MessagesView.Clear;
MessagesView.ShowOnTop;
try
TheMatchedFiles:= IDEProcs.FindInFiles(TheFileList,
FindText,
FindInFilesDialog.WholeWordsOnlyCheckBox.Checked,
FindInFilesDialog.CaseSensitiveCheckBox.Checked,
FindInFilesDialog.RegularExpressionsCheckBox.Checked);
try
TheMatchedFiles:= IDEProcs.FindInFiles(TheFileList,
FindText,
FindInFilesDialog.WholeWordsOnlyCheckBox.Checked,
FindInFilesDialog.CaseSensitiveCheckBox.Checked,
FindInFilesDialog.RegularExpressionsCheckBox.Checked);
except
on E: ERegExpr do begin
MessageDlg(lisUEErrorInRegularExpression,
E.Message,mtError,[mbCancel],0);
exit;
end;//on except
end;//try-except
//if we matched any files add them to the message window
if (TheMatchedFiles<>nil) and (TheMatchedFiles.Count>0) then
begin