Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/GikoBayesian.pas

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

revision 1.21 by h677, Mon Jun 26 14:57:15 2006 UTC revision 1.22 by h677, Sat Jan 31 15:47:15 2009 UTC
# Line 310  begin Line 310  begin
310    
311                  for i := 1 to sl.Count - 1 do begin                  for i := 1 to sl.Count - 1 do begin
312                          s := sl[ i ];                          s := sl[ i ];
313                          name := RemoveToken( s, #1 );                          name := GikoBayesian.RemoveToken( s, #1 );
314                          info := TWordInfo.Create;                          info := TWordInfo.Create;
315                          info.NormalWord                 := StrToIntDef( '$' + RemoveToken( s, #1 ), 0 );                          info.NormalWord                 := StrToIntDef( '$' + GikoBayesian.RemoveToken( s, #1 ), 0 );
316                          info.ImportantWord      := StrToIntDef( '$' + RemoveToken( s, #1 ), 0 );                          info.ImportantWord      := StrToIntDef( '$' + GikoBayesian.RemoveToken( s, #1 ), 0 );
317                          info.NormalText                 := StrToIntDef( '$' + RemoveToken( s, #1 ), 0 );                          info.NormalText                 := StrToIntDef( '$' + GikoBayesian.RemoveToken( s, #1 ), 0 );
318                          info.ImportantText      := StrToIntDef( '$' + RemoveToken( s, #1 ), 0 );                          info.ImportantText      := StrToIntDef( '$' + GikoBayesian.RemoveToken( s, #1 ), 0 );
319    
320                          AddObject( name, info );                          AddObject( name, info );
321                  end;                  end;

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

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