大文字・小文字を区別しないのをデフォルトにした

diff --git a/bottleclient/StrReplace.pas b/bottleclient/StrReplace.pas
index f2c3a02..fa014e4 100644 (file)
--- a/bottleclient/StrReplace.pas
+++ b/bottleclient/StrReplace.pas
@@ -34,6 +34,7 @@ type
     function GetIgnoreCase: boolean;
     function GetUseRegExp: boolean;
   public
+    constructor Create(Collection: TCollection); override;
     function ExecuteReplace(TargetStr: string): string;
     procedure Assign(Source: TPersistent); override;
     procedure Clear;
@@ -118,6 +119,12 @@ begin
   end;
 end;
 
+constructor TReplacePair.Create(Collection: TCollection);
+begin
+  inherited;
+  IgnoreCase := true;
+end;
+
 function TReplacePair.ExecuteReplace(TargetStr: string): string;
 var
   Options: TReplaceFlags;