正規表現ではない普通のマッチングで検索が出来なくなっていた問題を修正。

diff --git a/bottleclient/SearchLog.pas b/bottleclient/SearchLog.pas
index 06e9de8..2d393f2 100644 (file)
--- a/bottleclient/SearchLog.pas
+++ b/bottleclient/SearchLog.pas
@@ -204,7 +204,7 @@ begin
 end;
 
 procedure TfrmSearchLog.btnOkClick(Sender: TObject);
-var ErrorMsg,CheckScriptPattern :String;
+var ErrorMsg, CheckScriptPattern :String;
 begin
   // \8c\8b\89ÊOK\82Å\83E\83B\83\93\83h\83E\82ð\95Â\82¶\82é
   with Condition do
@@ -224,8 +224,8 @@ begin
         ShowMessage('\90³\8bK\95\\8c»\82É\8cë\82è\82ª\82 \82è\82Ü\82·'#13#10 + ErrorMsg);
         Exit;
       end;
-      ScriptPattern := CheckScriptPattern;
     end;
+    ScriptPattern := CheckScriptPattern;
   end;
   if Condition.IsInvalidCondition then
     ShowMessage('\8fð\8c\8f\82ð\8ew\92è\82µ\82Ä\82­\82¾\82³\82¢')