X-Git-Url: http://git.osdn.net/view?a=blobdiff_plain;f=bottleclient%2FSearchLog.pas;fp=bottleclient%2FSearchLog.pas;h=3f8122b9f4d86a3ed5eb24460249f5d125df15b0;hb=d31f0cf37f83371df975a250cba934629431284b;hp=0afb70eeeec3139cf955b2822da36da8e3a14fb4;hpb=e0f48bbef9abdcc21dec7abc6c5fb93444ea6b2a;p=winbottle%2Fwinbottle.git

diff --git a/bottleclient/SearchLog.pas b/bottleclient/SearchLog.pas
index 0afb70e..3f8122b 100644
--- a/bottleclient/SearchLog.pas
+++ b/bottleclient/SearchLog.pas
@@ -204,7 +204,7 @@ begin
 end;
 
 procedure TfrmSearchLog.btnOkClick(Sender: TObject);
-var tmpScriptPattern,tmpStringReplace : String;
+var tmpScriptPattern : String;
 begin
   tmpScriptPattern := edtScriptPattern.Text;
 
@@ -214,12 +214,10 @@ begin
     begin
       try
         //Perl‚̐³‹K•\Œ»\•¶‚Ƀ}ƒbƒ`‚·‚鐳‹K•\Œ»‚Ń`ƒFƒbƒN
+        //kƒIƒvƒVƒ‡ƒ“‚ÍŠ¿Žš‘Ήž
+        //#255(0xFF)‚Í‚ ‚肦‚È‚¢‚Ì‚Å‚±‚±‚Å—˜—p
         if not brx.Match('m/^m?(.).+\1\w*$/k',tmpScriptPattern) then
-        begin
-          tmpStringReplace := tmpScriptPattern;
-          tmpStringReplace := StringReplace(tmpStringReplace, '/', '\/', [rfReplaceAll]);
-          tmpScriptPattern := 'm/' + tmpStringReplace + '/k'; //kƒIƒvƒVƒ‡ƒ“‚ÍŠ¿Žš‘Ήž
-        end;
+          tmpScriptPattern := 'm'#255 + tmpScriptPattern + #255'k';
       except
         tmpScriptPattern := '';
       end;