| 9321 |
ReadList := TStringList.Create; |
ReadList := TStringList.Create; |
| 9322 |
wordCount := TWordCount.Create; |
wordCount := TWordCount.Create; |
| 9323 |
try |
try |
| 9324 |
|
ThreadItem.ScrollTop := OleVariant(IHTMLDocument2(FActiveContent.Browser.Document)).Body.ScrollTop; |
| 9325 |
// スパムに設定 |
// スパムに設定 |
| 9326 |
ReadList.LoadFromFile( ThreadItem.GetThreadFileName ); |
ReadList.LoadFromFile( ThreadItem.GetThreadFileName ); |
| 9327 |
GikoSys.Bayesian.CountWord( ReadList[ KokoPopupMenu.Tag - 1 ], wordCount ); |
GikoSys.Bayesian.CountWord( ReadList[ KokoPopupMenu.Tag - 1 ], wordCount ); |
| 9348 |
ReadList := TStringList.Create; |
ReadList := TStringList.Create; |
| 9349 |
wordCount := TWordCount.Create; |
wordCount := TWordCount.Create; |
| 9350 |
try |
try |
| 9351 |
|
ThreadItem.ScrollTop := OleVariant(IHTMLDocument2(FActiveContent.Browser.Document)).Body.ScrollTop; |
| 9352 |
// スパムに設定 |
// スパムに設定 |
| 9353 |
ReadList.LoadFromFile( ThreadItem.GetThreadFileName ); |
ReadList.LoadFromFile( ThreadItem.GetThreadFileName ); |
| 9354 |
GikoSys.Bayesian.CountWord( ReadList[ KokoPopupMenu.Tag - 1 ], wordCount ); |
GikoSys.Bayesian.CountWord( ReadList[ KokoPopupMenu.Tag - 1 ], wordCount ); |
| 9376 |
IndividualForm := TIndividualAbonForm.Create(Self); |
IndividualForm := TIndividualAbonForm.Create(Self); |
| 9377 |
try |
try |
| 9378 |
ThreadItem := GetActiveContent; |
ThreadItem := GetActiveContent; |
| 9379 |
|
ThreadItem.ScrollTop := OleVariant(IHTMLDocument2(FActiveContent.Browser.Document)).Body.ScrollTop; |
| 9380 |
if (ThreadItem <> nil) and (ThreadItem.IsLogFile) then begin |
if (ThreadItem <> nil) and (ThreadItem.IsLogFile) then begin |
| 9381 |
if IndividualForm.SetThreadLogFileName(ThreadItem.GetThreadFileName) then begin |
if IndividualForm.SetThreadLogFileName(ThreadItem.GetThreadFileName) then begin |
| 9382 |
ReadList := TStringList.Create; |
ReadList := TStringList.Create; |
| 9416 |
IndividualForm := TIndividualAbonForm.Create(Self); |
IndividualForm := TIndividualAbonForm.Create(Self); |
| 9417 |
try |
try |
| 9418 |
ThreadItem := GetActiveContent; |
ThreadItem := GetActiveContent; |
| 9419 |
|
ThreadItem.ScrollTop := OleVariant(IHTMLDocument2(FActiveContent.Browser.Document)).Body.ScrollTop; |
| 9420 |
if (ThreadItem <> nil) and (ThreadItem.IsLogFile) then begin |
if (ThreadItem <> nil) and (ThreadItem.IsLogFile) then begin |
| 9421 |
if IndividualForm.SetThreadLogFileName(ThreadItem.GetThreadFileName) then begin |
if IndividualForm.SetThreadLogFileName(ThreadItem.GetThreadFileName) then begin |
| 9422 |
if IndividualForm.ShowModal = mrOK then begin |
if IndividualForm.ShowModal = mrOK then begin |