Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/AbonUnit.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.36 by yoffy, Wed Oct 27 08:24:23 2004 UTC revision 1.37 by yoffy, Mon Jan 10 15:41:04 2005 UTC
# Line 1  Line 1 
1    {
2    NO_ABON                                                 あぼーん済みのレスも表示する(強調される)
3    SPAM_FILTER_ENABLED     スパムフィルタを機能させる
4    }
5    
6  unit AbonUnit;  unit AbonUnit;
7    
8  interface  interface
# Line 87  type Line 92  type
92          procedure Execute(var ThreadStrings : TStringList); overload;          procedure Execute(var ThreadStrings : TStringList); overload;
93          procedure Execute(var ResString : String; ResNumber : Integer); overload;       //主にpluginからのDat To HTML 用          procedure Execute(var ResString : String; ResNumber : Integer); overload;       //主にpluginからのDat To HTML 用
94    
95    {$IFDEF SPAM_FILTER_ENABLED}
96          //! スパムフィルタの学習          //! スパムフィルタの学習
97          procedure Learn( resList : TStringList );          procedure Learn( resList : TStringList );
98    {$ENDIF}
99          //個別あぼ〜んしょり          //個別あぼ〜んしょり
100          procedure IndividualAbon(var ThreadStrings : TStringList; SetResNumFile : String); overload;          procedure IndividualAbon(var ThreadStrings : TStringList; SetResNumFile : String); overload;
101          procedure IndividualAbon(var ResString : String; SetResNumFile : String; ResNumber : Integer); overload;          procedure IndividualAbon(var ResString : String; SetResNumFile : String; ResNumber : Integer); overload;
# Line 604  begin Line 611  begin
611    
612  end;  end;
613    
614    {$IFDEF SPAM_FILTER_ENABLED}
615  procedure TAbon.Learn( resList : TStringList );  procedure TAbon.Learn( resList : TStringList );
616  var  var
617          i, j                            : Integer;          i, j                            : Integer;
# Line 673  begin Line 681  begin
681          GikoSys.Bayesian.Save;          GikoSys.Bayesian.Save;
682    
683  end;  end;
684    {$ENDIF}
685    
686  //複数のNGワードテキストを読み込む=====ここまで=================================  //複数のNGワードテキストを読み込む=====ここまで=================================
687  //個別あぼ〜ん実行関数  //個別あぼ〜ん実行関数
# Line 683  var Line 692  var
692  begin  begin
693          f := LoadFromSetResNumFile( SetResNumFile );          f := LoadFromSetResNumFile( SetResNumFile );
694          FAbonRes.FFilePath := SetResNumFile;    // Learn はで保存するので          FAbonRes.FFilePath := SetResNumFile;    // Learn はで保存するので
695    {$IFDEF SPAM_FILTER_ENABLED}
696          Learn( ThreadStrings );          Learn( ThreadStrings );
697    {$ENDIF}
698    
699          if f then begin          if f then begin
700                  for i := 0 to FAbonRes.Count - 1 do begin                  for i := 0 to FAbonRes.Count - 1 do begin

Legend:
Removed from v.1.36  
changed lines
  Added in v.1.37

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26