BRegExp.pasのSingletonユーティリティ関数function brxの解放関連にどうも疑問があるので、brxの代わりにRegExp(BottleDef...

[winbottle/winbottle.git] / bottleclient / SearchLog.pas

diff --git a/bottleclient/SearchLog.pas b/bottleclient/SearchLog.pas
index 3f8122b..71cdb4e 100644 (file)
--- a/bottleclient/SearchLog.pas
+++ b/bottleclient/SearchLog.pas
@@ -6,7 +6,7 @@ interface
 
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, StdCtrls, ExtCtrls, Spin, BRegExp;
+  Dialogs, StdCtrls, ExtCtrls, Spin, BottleDef;
 
 type
   // \8c\9f\8dõ\8fð\8c\8f\82ð\95\\82·\83N\83\89\83X\81B
@@ -216,7 +216,7 @@ begin
         //Perl\82Ì\90³\8bK\95\\8c»\8d\\95¶\82É\83}\83b\83`\82·\82é\90³\8bK\95\\8c»\82Å\83`\83F\83b\83N
         //k\83I\83v\83V\83\87\83\93\82Í\8a¿\8e\9a\91Î\89\9e
         //#255(0xFF)\82Í\82 \82è\82¦\82È\82¢\82Ì\82Å\82±\82±\82Å\97\98\97p
-        if not brx.Match('m/^m?(.).+\1\w*$/k',tmpScriptPattern) then
+        if not RegExp.Match('m/^m?(.).+\1\w*$/k',tmpScriptPattern) then
           tmpScriptPattern := 'm'#255 + tmpScriptPattern + #255'k';
       except
         tmpScriptPattern := '';