1.60.2.794

[gikonavigoeson/gikonavi.git] / GikoBayesian.pas

diff --git a/GikoBayesian.pas b/GikoBayesian.pas
index a8f7c07..55791a3 100644 (file)
--- a/GikoBayesian.pas
+++ b/GikoBayesian.pas
@@ -5,7 +5,7 @@ unit GikoBayesian;
 \brief \83x\83C\83W\83A\83\93\83t\83B\83\8b\83^
 
 
-$Id: GikoBayesian.pas,v 1.21 2006/06/26 14:57:15 h677 Exp $
+$Id: GikoBayesian.pas,v 1.22 2009/01/31 15:47:15 h677 Exp $
 }
 
 //! \95½\89¼\96¼\82ð\8e«\8f\91\82É\8aÜ\82ß\82È\82¢
@@ -310,12 +310,12 @@ begin
 
                for i := 1 to sl.Count - 1 do begin
                        s := sl[ i ];
-                       name := RemoveToken( s, #1 );
+                       name := GikoBayesian.RemoveToken( s, #1 );
                        info := TWordInfo.Create;
-                       info.NormalWord                 := StrToIntDef( '$' + RemoveToken( s, #1 ), 0 );
-                       info.ImportantWord      := StrToIntDef( '$' + RemoveToken( s, #1 ), 0 );
-                       info.NormalText                 := StrToIntDef( '$' + RemoveToken( s, #1 ), 0 );
-                       info.ImportantText      := StrToIntDef( '$' + RemoveToken( s, #1 ), 0 );
+                       info.NormalWord                 := StrToIntDef( '$' + GikoBayesian.RemoveToken( s, #1 ), 0 );
+                       info.ImportantWord      := StrToIntDef( '$' + GikoBayesian.RemoveToken( s, #1 ), 0 );
+                       info.NormalText                 := StrToIntDef( '$' + GikoBayesian.RemoveToken( s, #1 ), 0 );
+                       info.ImportantText      := StrToIntDef( '$' + GikoBayesian.RemoveToken( s, #1 ), 0 );
 
                        AddObject( name, info );
                end;