連続する同英字をNGにする機能の有効性が低いので削除した

diff --git a/AbonUnit.pas b/AbonUnit.pas
index 711eaec..caec68a 100644 (file)
--- a/AbonUnit.pas
+++ b/AbonUnit.pas
@@ -34,8 +34,6 @@ type
     function Getroot() : String;
     procedure SetNGwordpath(path :String);
     function GetNGwordpath() : String;
-    procedure SetCutoffNum(value : Integer);
-    function GetCutoffNum() : Integer;
     function LoadFromNGwordFile(path :String) : Boolean;
     function ReLoadFromNGwordFile() : Boolean;
     procedure LoadFromStringList( bufstl : TStringList );
@@ -66,14 +64,11 @@ constructor TAbon.Create;
 begin
     // \8f\89\8aú\89»
     FAbonString := '&nbsp;<>&nbsp;<>&nbsp;<>&nbsp;&nbsp;<><>';
-    //FRetStrings := TStringList.Create;
     FCreateNGwordFile := true;
-    SetCutoffNum(0);
 end;
 
 destructor TAbon.Destroy;
 begin
-    //FRetStrings.Free;
     inherited;
 end;
 
@@ -179,18 +174,7 @@ begin
     bufstl.Free;
 
 end;
-procedure TAbon.SetCutoffNum(value : Integer);
-begin
-    if value > 0 then begin
-        FCutoffNum := value;
-    end else begin
-        FCutoffNum := 0;
-    end;
-end;
-function TAbon.GetCutoffNum() : Integer;
-begin
-    Result := FCutoffNum;
-end;
+//Debug\97p\82¿\82á\82ñ\82ÆNG\83\8f\81[\83h\82ð\8fE\82¦\82Ä\82¢\82é\82©
 function TAbon.ShowAllTokens() : String;
 var
     i : Integer;
@@ -267,25 +251,6 @@ begin
     for i:=0 to ThreadStrings.Count - 1 do begin
         if FindNGwords(ThreadStrings.Strings[i]) <> Reverse  then begin
             ThreadStrings.Strings[i] := FAbonString;
-        end else if FCutoffNum > 0  then begin
-            bufline := ThreadStrings.Strings[i];
-            for j := 0 to 2 do begin
-                Delete(bufline,1,Ansipos('<>',bufline)+1);
-            end;
-            Delete(bufline,Ansipos('<>',bufline),Length(bufline)-Ansipos('<>',bufline)+1);
-            if Cutoff(bufline) = true then begin
-                ThreadStrings.Strings[i] := FAbonString;
-            end else begin
-                bufline := ThreadStrings.Strings[i];
-                if Deleterlo = true then begin
-                    bufline := AnsiReplaceText( bufline,'&rlo;','' );
-                end;
-                if Replaceul = true then begin
-                    bufline := AnsiReplaceText( bufline,'<ul>','<br>' );
-                    bufline := AnsiReplaceText( bufline,'</ul>','<br>' );
-                end;
-                ThreadStrings.Strings[i] := bufline;
-            end;
         end else begin
             bufline := ThreadStrings.Strings[i];
             if Deleterlo = true then begin
@@ -298,7 +263,6 @@ begin
             ThreadStrings.Strings[i] := bufline;
         end;
     end;
-    //Result := FRetStrings;
 
 end;
 procedure TAbon.Execute(var ThreadStrings : TStringList; NGwords : TStringList);

diff --git a/GikoSystem.pas b/GikoSystem.pas
index 639e614..e5e3cb0 100644 (file)
--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -783,7 +783,6 @@ begin
        ReadList := TStringList.Create;
     FAbon.Deleterlo := FSetting.AbonDeleterlo;
     FAbon.Replaceul := FSetting.AbonReplaceul;
-    FAbon.SetCutoffNum(FSetting.AbonCutoffNum);
     FAbon.AbonPopupRes := FSetting.PopUpAbon;
        try
                if ThreadItem.IsLogFile then begin

diff --git a/Option.dfm b/Option.dfm
index b03fc32..0bbfb30 100644 (file)
--- a/Option.dfm
+++ b/Option.dfm
@@ -623,20 +623,6 @@ object OptionDialog: TOptionDialog
         Height = 169
         Caption = #12354#12412#65374#12435
         TabOrder = 0
-        object Label26: TLabel
-          Left = 16
-          Top = 120
-          Width = 86
-          Height = 12
-          Caption = #8251'0'#12398#22580#21512#12289#28961#21177
-        end
-        object Label28: TLabel
-          Left = 128
-          Top = 120
-          Width = 151
-          Height = 12
-          Caption = #8251#22823#25991#23383#23567#25991#23383#12399#21306#21029#12375#12394#12356
-        end
         object RloCheckBox: TCheckBox
           Left = 16
           Top = 24
@@ -661,19 +647,6 @@ object OptionDialog: TOptionDialog
           Caption = #12524#12473#12509#12483#12503#12450#12483#12503#26178#12398#12354#12412#65374#12435#26377#21177
           TabOrder = 2
         end
-        object CutOffLabeledEdit: TLabeledEdit
-          Left = 246
-          Top = 96
-          Width = 57
-          Height = 20
-          EditLabel.Width = 219
-          EditLabel.Height = 12
-          EditLabel.Caption = #26412#25991#20013#12395#21516#12376#33521#23383#12364#36899#32154#12375#12383#22580#21512#12354#12412#65374#12435
-          ImeMode = imDisable
-          LabelPosition = lpLeft
-          LabelSpacing = 10
-          TabOrder = 3
-        end
       end
     end
     object ThreadSheet: TTabSheet

diff --git a/Option.pas b/Option.pas
index 216bfab..218a5f0 100644 (file)
--- a/Option.pas
+++ b/Option.pas
@@ -162,9 +162,6 @@ type
     RloCheckBox: TCheckBox;
     ReplaceulCheckBox: TCheckBox;
     PopUpAbonCheckBox: TCheckBox;
-    CutOffLabeledEdit: TLabeledEdit;
-    Label26: TLabel;
-    Label28: TLabel;
                procedure FormCreate(Sender: TObject);
                procedure FormDestroy(Sender: TObject);
                procedure ApplyButtonClick(Sender: TObject);
@@ -644,7 +641,6 @@ begin
     RloCheckBox.Checked := GikoSys.Setting.AbonDeleterlo;
     ReplaceulCheckBox.Checked := GikoSys.Setting.AbonReplaceul;
     PopUpAbonCheckBox.Checked := GikoSys.Setting.PopUpAbon;
-    CutOfflabeledEdit.Text := IntToStr(GikoSys.Setting.AbonCutoffNum);
 
 end;
 
@@ -794,15 +790,6 @@ begin
     GikoSys.Setting.AbonDeleterlo := RloCheckBox.Checked;
     GikoSys.Setting.AbonReplaceul := ReplaceulCheckBox.Checked;
     GikoSys.Setting.PopUpAbon := PopUpAbonCheckBox.Checked;
-    try
-        if StrToInt(CutOfflabeledEdit.Text) > 0 then begin
-            GikoSys.Setting.AbonCutoffNum := StrToInt(CutOfflabeledEdit.Text);
-        end else begin
-            GikoSys.Setting.AbonCutoffNum := 0;
-        end;
-    except
-        GikoSys.Setting.AbonCutoffNum := 0;
-    end;
 end;
 
 procedure TOptionDialog.SettingApply;
@@ -1054,15 +1041,6 @@ begin
     GikoSys.FAbon.Deleterlo := RloCheckBox.Checked;
     GikoSys.FAbon.Replaceul := ReplaceulCheckBox.Checked;
     GikoSys.FAbon.AbonPopupRes := PopUpAbonCheckBox.Checked;
-    try
-        if StrToInt(CutOfflabeledEdit.Text) > 0 then begin
-            GikoSys.FAbon.SetCutoffNum(StrToInt(CutOfflabeledEdit.Text));
-        end else begin
-            GikoSys.FAbon.SetCutoffNum(0);
-        end;
-    except
-        GikoSys.FAbon.SetCutoffNum(0);
-    end;
 
 end;
 end.

diff --git a/Setting.pas b/Setting.pas
index 48338a0..32d41a5 100644 (file)
--- a/Setting.pas
+++ b/Setting.pas
@@ -227,7 +227,6 @@ type
                FTimeAdjust: Boolean;
 
         //\82 \82Ú\81`\82ñ
-        FAbonCutoffNum : Integer; //\82±\82Ì\90\94\88È\8fã\98A\91±\82·\82é\93¯\82¶\89p\8e\9a\82ðNG\83\8f\81[\83h\82Æ\82·\82é
         FAbonDeleterlo : Boolean; //&rlo;\82ð\8dí\82é\82©
         FAbonReplaceul : Boolean; //<ul>\83^\83O\82ð<br>\83^\83O\82É\92u\8a·\82·\82é\82©
         FPopUpAbon     : Boolean; //\83\8c\83X\83|\83b\83v\83A\83b\83v\8e\9e\82Ì\82 \82Ú\81`\82ñ\97L\8cø
@@ -425,7 +424,6 @@ type
                property TimeAdjust: Boolean read FTimeAdjust write FTimeAdjust;
 
         //\82 \82Ú\81`\82ñ
-        property AbonCutoffNum : Integer read FAbonCutoffNum write FAbonCutoffNum;
         property AbonDeleterlo : Boolean read FAbonDeleterlo write FAbonDeleterlo;
         property AbonReplaceul : Boolean read FAbonReplaceul write FAbonReplaceul;
         property PopUpAbon     : Boolean read FPopUpAbon write FPopUpAbon;
@@ -762,7 +760,6 @@ begin
                end;
 
         //\82 \82Ú\81`\82ñ
-        FAbonCutoffNum := ini.ReadInteger('Abon','CutOffnum',0);
         FAbonDeleterlo := ini.ReadBool('Abon','Deleterlo',false);
         FAbonReplaceul := ini.ReadBool('Abon','Replaceul',false);
         FPopUpAbon     := ini.ReadBool('abon','Popup',false);
@@ -985,7 +982,6 @@ begin
                end;
 
         //\82 \82Ú\81`\82ñ
-        ini.WriteInteger('Abon','CutOffnum',FAbonCutoffNum);
         ini.WriteBool('Abon','Deleterlo',FAbonDeleterlo);
         ini.WriteBool('Abon','Replaceul',FAbonReplaceul);
         ini.WriteBool('abon','Popup',FPopUpAbon);