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.468 by yoffy, Wed Oct 20 18:24:59 2004 UTC revision 1.469 by yoffy, Thu Oct 21 04:59:00 2004 UTC
# Line 9323  begin Line 9323  begin
9323          try          try
9324                  // スパムに設定                  // スパムに設定
9325                  ReadList.LoadFromFile( ThreadItem.GetThreadFileName );                  ReadList.LoadFromFile( ThreadItem.GetThreadFileName );
9326                  GikoSys.Bayesian.CountWord( ReadList[ KokoPopupMenu.Tag ], wordCount );                  GikoSys.Bayesian.CountWord( ReadList[ KokoPopupMenu.Tag - 1 ], wordCount );
9327                  GikoSys.Bayesian.Forget( wordCount, False );    // ハムを解除                  GikoSys.Bayesian.Forget( wordCount, False );    // ハムを解除
9328                  GikoSys.Bayesian.Learn( wordCount, True );              // スパムに設定                  GikoSys.Bayesian.Learn( wordCount, True );              // スパムに設定
9329                  // あぼーんに設定                  // あぼーんに設定
# Line 9349  begin Line 9349  begin
9349          try          try
9350                  // スパムに設定                  // スパムに設定
9351                  ReadList.LoadFromFile( ThreadItem.GetThreadFileName );                  ReadList.LoadFromFile( ThreadItem.GetThreadFileName );
9352                  GikoSys.Bayesian.CountWord( ReadList[ KokoPopupMenu.Tag ], wordCount );                  GikoSys.Bayesian.CountWord( ReadList[ KokoPopupMenu.Tag - 1 ], wordCount );
9353                  GikoSys.Bayesian.Forget( wordCount, False );    // ハムを解除                  GikoSys.Bayesian.Forget( wordCount, False );    // ハムを解除
9354                  GikoSys.Bayesian.Learn( wordCount, True );              // スパムに設定                  GikoSys.Bayesian.Learn( wordCount, True );              // スパムに設定
9355                  // あぼーんに設定                  // あぼーんに設定
# Line 9381  begin Line 9381  begin
9381                                  try                                  try
9382                                          // スパムを解除                                          // スパムを解除
9383                                          ReadList.LoadFromFile( ThreadItem.GetThreadFileName );                                          ReadList.LoadFromFile( ThreadItem.GetThreadFileName );
9384                                          GikoSys.Bayesian.CountWord( ReadList[ KokoPopupMenu.Tag ], wordCount );                                          GikoSys.Bayesian.CountWord( ReadList[ KokoPopupMenu.Tag - 1 ], wordCount );
9385                                          GikoSys.Bayesian.Forget( wordCount, True );     // スパムを解除                                          GikoSys.Bayesian.Forget( wordCount, True );     // スパムを解除
9386                                          GikoSys.Bayesian.Learn( wordCount, False );     // ハムに設定                                          GikoSys.Bayesian.Learn( wordCount, False );     // ハムに設定
9387                                          if IndividualForm.DeleteNG(KokoPopupMenu.Tag) then begin                                          if IndividualForm.DeleteNG(KokoPopupMenu.Tag) then begin
# Line 9421  begin Line 9421  begin
9421                                          try                                          try
9422                                                  // スパムを解除                                                  // スパムを解除
9423                                                  ReadList.LoadFromFile( ThreadItem.GetThreadFileName );                                                  ReadList.LoadFromFile( ThreadItem.GetThreadFileName );
9424                                                  GikoSys.Bayesian.CountWord( ReadList[ KokoPopupMenu.Tag ], wordCount );                                                  GikoSys.Bayesian.CountWord( ReadList[ KokoPopupMenu.Tag - 1 ], wordCount );
9425                                                  GikoSys.Bayesian.Forget( wordCount, True );     // スパムを解除                                                  GikoSys.Bayesian.Forget( wordCount, True );     // スパムを解除
9426                                                  GikoSys.Bayesian.Learn( wordCount, False );     // ハムに設定                                                  GikoSys.Bayesian.Learn( wordCount, False );     // ハムに設定
9427                                                  if IndividualForm.FRepaint then begin                                                  if IndividualForm.FRepaint then begin

Legend:
Removed from v.1.468  
changed lines
  Added in v.1.469

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