From: h677 Date: Mon, 18 Aug 2003 08:13:38 +0000 (+0000) Subject: 連続する同英字をNGにする機能の有効性が低いので削除した X-Git-Tag: v1_64_1_820~1994 X-Git-Url: http://git.sourceforge.jp/view?a=commitdiff_plain;h=7fbbeefa08d77e5d7bb08d779df92762a48ca87a;p=gikonavigoeson%2Fgikonavi.git 連続する同英字をNGにする機能の有効性が低いので削除した --- diff --git a/AbonUnit.pas b/AbonUnit.pas index 711eaec..caec68a 100644 --- 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 // ‰Šú‰» FAbonString := ' <> <> <>  <><>'; - //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—p‚¿‚á‚ñ‚ÆNGƒ[ƒh‚ðE‚¦‚Ä‚¢‚é‚© 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,'','
' ); - 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 --- 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 --- 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 --- 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 --- a/Setting.pas +++ b/Setting.pas @@ -227,7 +227,6 @@ type FTimeAdjust: Boolean; //‚ ‚ځ`‚ñ - FAbonCutoffNum : Integer; //‚±‚̐”ˆÈã˜A‘±‚·‚铯‚¶‰pŽš‚ðNGƒ[ƒh‚Æ‚·‚é FAbonDeleterlo : Boolean; //&rlo;‚ðí‚é‚© FAbonReplaceul : Boolean; //