Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

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

revision 1.478 by h677, Tue Oct 26 14:24:01 2004 UTC revision 1.479 by yoffy, Wed Oct 27 00:10:12 2004 UTC
# Line 9356  begin Line 9356  begin
9356                  ThreadItem.ScrollTop := OleVariant(IHTMLDocument2(FActiveContent.Browser.Document)).Body.ScrollTop;                  ThreadItem.ScrollTop := OleVariant(IHTMLDocument2(FActiveContent.Browser.Document)).Body.ScrollTop;
9357                  // スパムに設定                  // スパムに設定
9358                  ReadList.LoadFromFile( ThreadItem.GetThreadFileName );                  ReadList.LoadFromFile( ThreadItem.GetThreadFileName );
9359                  GikoSys.Bayesian.CountWord( ReadList[ KokoPopupMenu.Tag - 1 ], wordCount );                  GikoSys.SpamCountWord( ReadList[ KokoPopupMenu.Tag - 1 ], wordCount );
9360                  GikoSys.Bayesian.Forget( wordCount, False );    // ハムを解除                  GikoSys.SpamForget( wordCount, False ); // ハムを解除
9361                  GikoSys.Bayesian.Learn( wordCount, True );              // スパムに設定                  GikoSys.SpamLearn( wordCount, True );           // スパムに設定
9362                  // あぼーんに設定                  // あぼーんに設定
9363                  GikoSys.FAbon.AddIndividualAbon(KokoPopupMenu.Tag, 1, ChangeFileExt(ThreadItem.GetThreadFileName, '.NG'));                  GikoSys.FAbon.AddIndividualAbon(KokoPopupMenu.Tag, 1, ChangeFileExt(ThreadItem.GetThreadFileName, '.NG'));
9364          finally          finally
# Line 9383  begin Line 9383  begin
9383                  ThreadItem.ScrollTop := OleVariant(IHTMLDocument2(FActiveContent.Browser.Document)).Body.ScrollTop;                  ThreadItem.ScrollTop := OleVariant(IHTMLDocument2(FActiveContent.Browser.Document)).Body.ScrollTop;
9384                  // スパムに設定                  // スパムに設定
9385                  ReadList.LoadFromFile( ThreadItem.GetThreadFileName );                  ReadList.LoadFromFile( ThreadItem.GetThreadFileName );
9386                  GikoSys.Bayesian.CountWord( ReadList[ KokoPopupMenu.Tag - 1 ], wordCount );                  GikoSys.SpamCountWord( ReadList[ KokoPopupMenu.Tag - 1 ], wordCount );
9387                  GikoSys.Bayesian.Forget( wordCount, False );    // ハムを解除                  GikoSys.SpamForget( wordCount, False ); // ハムを解除
9388                  GikoSys.Bayesian.Learn( wordCount, True );              // スパムに設定                  GikoSys.SpamLearn( wordCount, True );           // スパムに設定
9389                  // あぼーんに設定                  // あぼーんに設定
9390                  GikoSys.FAbon.AddIndividualAbon(KokoPopupMenu.Tag, 0, ChangeFileExt(ThreadItem.GetThreadFileName, '.NG'));                  GikoSys.FAbon.AddIndividualAbon(KokoPopupMenu.Tag, 0, ChangeFileExt(ThreadItem.GetThreadFileName, '.NG'));
9391          finally          finally
# Line 9416  begin Line 9416  begin
9416                                  try                                  try
9417                                          // スパムを解除                                          // スパムを解除
9418                                          ReadList.LoadFromFile( ThreadItem.GetThreadFileName );                                          ReadList.LoadFromFile( ThreadItem.GetThreadFileName );
9419                                          GikoSys.Bayesian.CountWord( ReadList[ KokoPopupMenu.Tag - 1 ], wordCount );                                          GikoSys.SpamCountWord( ReadList[ KokoPopupMenu.Tag - 1 ], wordCount );
9420                                          GikoSys.Bayesian.Forget( wordCount, True );     // スパムを解除                                          GikoSys.SpamForget( wordCount, True );  // スパムを解除
9421                                          GikoSys.Bayesian.Learn( wordCount, False );     // ハムに設定                                          GikoSys.SpamLearn( wordCount, False );  // ハムに設定
9422                                          if IndividualForm.DeleteNG(KokoPopupMenu.Tag) then begin                                          if IndividualForm.DeleteNG(KokoPopupMenu.Tag) then begin
9423                                                  FActiveContent.Repaint := true;                                                  FActiveContent.Repaint := true;
9424                                                  InsertBrowserTab( ThreadItem, True );                                                  InsertBrowserTab( ThreadItem, True );
# Line 9457  begin Line 9457  begin
9457                                          try                                          try
9458                                                  // スパムを解除                                                  // スパムを解除
9459                                                  ReadList.LoadFromFile( ThreadItem.GetThreadFileName );                                                  ReadList.LoadFromFile( ThreadItem.GetThreadFileName );
9460                                                  GikoSys.Bayesian.CountWord( ReadList[ KokoPopupMenu.Tag - 1 ], wordCount );                                                  GikoSys.SpamCountWord( ReadList[ KokoPopupMenu.Tag - 1 ], wordCount );
9461                                                  GikoSys.Bayesian.Forget( wordCount, True );     // スパムを解除                                                  GikoSys.SpamForget( wordCount, True );  // スパムを解除
9462                                                  GikoSys.Bayesian.Learn( wordCount, False );     // ハムに設定                                                  GikoSys.SpamLearn( wordCount, False );  // ハムに設定
9463                                                  if IndividualForm.FRepaint then begin                                                  if IndividualForm.FRepaint then begin
9464                                                          FActiveContent.Repaint := true;                                                          FActiveContent.Repaint := true;
9465                                                          InsertBrowserTab( ThreadItem, True );                                                          InsertBrowserTab( ThreadItem, True );

Legend:
Removed from v.1.478  
changed lines
  Added in v.1.479

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