From: naru <bottle@mikage.to>
Date: Sat, 20 Mar 2004 08:24:29 +0000 (+0000)
Subject: 大文字・小文字を区別しないのをデフォルトにした
X-Git-Tag: BOTTLE2-70~16
X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=ff5e7f533dcbce12435c290418df023c7fe1ac04;hp=aecd145ffc80577939b13d72cbe518dfb5dbd03a;p=winbottle%2Fwinbottle.git

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

diff --git a/bottleclient/StrReplace.pas b/bottleclient/StrReplace.pas
index f2c3a02..fa014e4 100644
--- 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;