Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/AbonUnit.pas

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

revision 1.30 by yoffy, Wed Oct 20 18:24:59 2004 UTC revision 1.31 by yoffy, Thu Oct 21 01:20:35 2004 UTC
# Line 617  begin Line 617  begin
617          j := 0;          j := 0;
618          wordCount := TWordCount.Create;          wordCount := TWordCount.Create;
619          try          try
620                  if (FAbonRes.FLearned <> 0) and (FAbonRes.Count = 0) then begin                  if (FAbonRes.FLearned = 0) and (FAbonRes.Count = 0) then begin
621                          // 初めての学習かつ個別あぼ〜んありなので、旧verからの移行につき                          // 初めての学習かつ個別あぼ〜んありなので、旧verからの移行につき
622                          // 個別あぼ〜んを使った学習                          // 個別あぼ〜んを使った学習
623                          FAbonRes.Sort;                          FAbonRes.Sort;
# Line 678  end; Line 678  end;
678  procedure TAbon.IndividualAbon(var ThreadStrings : TStringList; SetResNumFile : String);  procedure TAbon.IndividualAbon(var ThreadStrings : TStringList; SetResNumFile : String);
679  var  var
680          i : Integer;          i : Integer;
681            f : Boolean;
682  begin  begin
683          FAbonRes.FFilePath := SetResNumFile;    // Learn で保存するので          f := FileExists( SetResNumFile );
684            if f then
685                    f := LoadFromSetResNumFile( SetResNumFile );
686            FAbonRes.FFilePath := SetResNumFile;    // Learn はで保存するので
687          Learn( ThreadStrings );          Learn( ThreadStrings );
688    
689          if FileExists(SetResNumFile) = true then begin          if FileExists(SetResNumFile) = true then begin
690                  if LoadFromSetResNumFile(SetResNumFile) = true then begin                  if f then begin
691                          for i := 0 to FAbonRes.Count - 1 do begin                          for i := 0 to FAbonRes.Count - 1 do begin
692                                  if (FAbonRes[i].Res <= ThreadStrings.Count) and (FAbonRes[i].Res > 0) then begin                                  if (FAbonRes[i].Res <= ThreadStrings.Count) and (FAbonRes[i].Res > 0) then begin
693                                          if FAbonRes[i].option = 0 then begin                                          if FAbonRes[i].option = 0 then begin

Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31

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