Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/GikoSystem.pas

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

revision 1.165 by yoffy, Wed Oct 27 00:10:12 2004 UTC revision 1.166 by yoffy, Wed Oct 27 00:30:20 2004 UTC
# Line 1021  begin Line 1021  begin
1021                  Skin := CustomStringReplace( Skin, '<DATE/>', Res.FDateTime);                  Skin := CustomStringReplace( Skin, '<DATE/>', Res.FDateTime);
1022                  Skin := CustomStringReplace( Skin, '<MESSAGE/>', Res.FBody);                  Skin := CustomStringReplace( Skin, '<MESSAGE/>', Res.FBody);
1023                  Skin := CustomStringReplace( Skin, '<SPAMMINESS/>', FloatToStr( spamminess ) );                  Skin := CustomStringReplace( Skin, '<SPAMMINESS/>', FloatToStr( spamminess ) );
1024                    Skin := CustomStringReplace( Skin, '<NONSPAMMINESS/>', FloatToStr( 100 - spamminess ) );
1025    
1026                  //----- かちゅ〜しゃ互換用。コメントアウトしてもよし                  //----- かちゅ〜しゃ互換用。コメントアウトしてもよし
1027                  Skin := CustomStringReplace( Skin, '&NUMBER',                  Skin := CustomStringReplace( Skin, '&NUMBER',
# Line 1033  begin Line 1034  begin
1034                  Skin := CustomStringReplace( Skin, '&DATE', Res.FDateTime);                  Skin := CustomStringReplace( Skin, '&DATE', Res.FDateTime);
1035                  Skin := CustomStringReplace( Skin, '&MESSAGE', Res.FBody);                  Skin := CustomStringReplace( Skin, '&MESSAGE', Res.FBody);
1036                  Skin := CustomStringReplace( Skin, '&SPAMMINESS', FloatToStr( spamminess ) );                  Skin := CustomStringReplace( Skin, '&SPAMMINESS', FloatToStr( spamminess ) );
1037                    Skin := CustomStringReplace( Skin, '&NONSPAMMINESS', FloatToStr( 100 - spamminess ) );
1038                  //----- ここまで                  //----- ここまで
1039    
1040                  Result := Skin;                  Result := Skin;
# Line 3920  begin Line 3922  begin
3922          gsfaPaulGraham:                                 Result := Bayesian.Parse( text, wordCount, gbaPaulGraham );          gsfaPaulGraham:                                 Result := Bayesian.Parse( text, wordCount, gbaPaulGraham );
3923          gsfaGaryRobinson:                               Result := Bayesian.Parse( text, wordCount, gbaGaryRobinson );          gsfaGaryRobinson:                               Result := Bayesian.Parse( text, wordCount, gbaGaryRobinson );
3924          gsfaGaryRobinsonFisher: Result := Bayesian.Parse( text, wordCount, gbaGaryRobinsonFisher );          gsfaGaryRobinsonFisher: Result := Bayesian.Parse( text, wordCount, gbaGaryRobinsonFisher );
3925            else                                                                            Result := 0;
3926          end;          end;
3927    
3928  end;  end;

Legend:
Removed from v.1.165  
changed lines
  Added in v.1.166

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