・正規表現メタキャラクタを排除する RegExpEncode を追加。

diff --git a/YofUtils.pas b/YofUtils.pas
index 438b3a1..f89ee6a 100644 (file)
--- a/YofUtils.pas
+++ b/YofUtils.pas
@@ -278,9 +278,26 @@ function RegExpEncode(
        const text : string
 ) : string;
 var
-       tmp : string;
+       strResult : string;
 begin
-       // \95Û\97¯
+
+       strResult := StringReplace( text, '\', '\\', [rfReplaceAll] );
+       strResult := StringReplace( strResult, '[', '\[', [rfReplaceAll] );
+       strResult := StringReplace( strResult, ']', '\]', [rfReplaceAll] );
+       strResult := StringReplace( strResult, '(', '\(', [rfReplaceAll] );
+       strResult := StringReplace( strResult, ')', '\)', [rfReplaceAll] );
+       strResult := StringReplace( strResult, '[', '\[', [rfReplaceAll] );
+       strResult := StringReplace( strResult, ']', '\]', [rfReplaceAll] );
+       strResult := StringReplace( strResult, '*', '\*', [rfReplaceAll] );
+       strResult := StringReplace( strResult, '?', '\?', [rfReplaceAll] );
+       strResult := StringReplace( strResult, '.', '\.', [rfReplaceAll] );
+       strResult := StringReplace( strResult, '+', '\+', [rfReplaceAll] );
+       strResult := StringReplace( strResult, '|', '\|', [rfReplaceAll] );
+       strResult := StringReplace( strResult, '^', '\^', [rfReplaceAll] );
+       strResult := StringReplace( strResult, '$', '\$', [rfReplaceAll] );
+
+       Result := strResult;
+
 end;
 
 end.