・検索中に 'CancelRequest' とダイアログが出て中断されることは無くなった。

・大文字小文字、全角半角などがあいまいでも検索結果に引っかかるようになった。

diff --git a/Search.pas b/Search.pas
index aeca5d0..08224ea 100644 (file)
--- a/Search.pas
+++ b/Search.pas
@@ -208,8 +208,7 @@ var
        ThreadItem: TThreadItem;
        List: TList;
        //sl: TStringList;
-  ThreadFile: TFileStream;
-  sl: string;
+  //sl: string;
   Reg: TGrep;
   Filter: string;
 begin
@@ -236,6 +235,7 @@ begin
             Reg := TGrep.Create( nil );
             try
               Reg.OnMatch := OnMatch;
+              Reg.UseFuzzyCharDic := True;
               FRegItem := ThreadItem;
 
               // grep \97p\82Ì\8c\9f\8dõ\83\8f\81[\83h\82ð\90¶\90¬
@@ -244,10 +244,13 @@ begin
                  IDCheckBox.Checked And
                  SentenceCheckBox.Checked Then
               Begin
-                // \91S\82Ä\83Z\83b\83g\82³\82ê\82Ä\82¢\82é\8fê\8d\87\82Í\90³\8bK\95\\8c»\82ð\8eg\82í\82È\82¢
+                // \91S\82Ä\83Z\83b\83g\82³\82ê\82Ä\82¢\82é\8fê\8d\87\82Í\90³\8bK\95\\8c»\82ð\8bÉ\97Í\8eg\82í\82È\82¢
                 // (\90³\8bK\95\\8c»\82ð\8eg\82¤\82Æ\82©\82È\82è\92x\82¢\82Ì\82Å)
                 Reg.RegExp := SearchComboBox.Text;
-                Reg.GrepByStr( ThreadItem.GetThreadFileName );
+                try
+                  Reg.GrepByRegExp( ThreadItem.GetThreadFileName )
+                except
+                end;
               End Else Begin
                 If NameCheckBox.Checked Then
                   Filter := '.*' + SearchComboBox.Text + '.*<>'
@@ -270,7 +273,10 @@ begin
 
                 // \8c\9f\8dõ
                 // \81¦\8c©\82Â\82©\82Á\82½\82ç OnMatch \82É\94ò\82Ô
-                Reg.GrepByRegExp( ThreadItem.GetThreadFileName );
+                try
+                  Reg.GrepByRegExp( ThreadItem.GetThreadFileName )
+                except
+                end;
               End;
 
             finally