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