Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/GikoBayesian.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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 |
|
|
| |