| 520 |
sl.LoadFromFile(FileName); |
sl.LoadFromFile(FileName); |
| 521 |
|
|
| 522 |
//2行目から(1行目はバージョン) |
//2行目から(1行目はバージョン) |
| 523 |
for i := 1 to sl.Count - 1 do begin |
for i := sl.Count - 1 downto 0 do begin |
| 524 |
Rec := ParseIndexLine(sl[i]); |
Rec := ParseIndexLine(sl[i]); |
| 525 |
|
|
| 526 |
if usePlugIn then |
if usePlugIn then |
| 527 |
ThreadItem := TThreadItem.Create( |
ThreadItem := TThreadItem.Create( |
| 528 |
Board.BoardPlugIn, |
Board.BoardPlugIn, |
| 529 |
Board.BoardPlugIn.FileName2ThreadURL( DWORD( Board ), Rec.FFileName ) ) |
Board.BoardPlugIn.FileName2ThreadURL( DWORD( Board ), Rec.FFileName ) ) |
| 530 |
else |
else begin |
| 531 |
ThreadItem := TThreadItem.Create( |
ThreadItem := TThreadItem.Create( |
| 532 |
nil, |
nil, |
| 533 |
Get2chBoard2ThreadURL( Board, ChangeFileExt( Rec.FFileName, '' ) ) ); |
Get2chBoard2ThreadURL( Board, ChangeFileExt( Rec.FFileName, '' ) ) ); |
| 534 |
|
|
| 535 |
|
//IsLogFileチェック |
| 536 |
|
ThreadItem.IsLogFile := False; |
| 537 |
|
if FileList.Count <> 0 then begin |
| 538 |
|
if FileList.Find( ThreadItem.FileName, Index ) then begin |
| 539 |
|
ThreadItem.IsLogFile := True; |
| 540 |
|
FileList.Delete( Index ); |
| 541 |
|
end; |
| 542 |
|
end; |
| 543 |
|
end; |
| 544 |
ThreadItem.BeginUpdate; |
ThreadItem.BeginUpdate; |
| 545 |
ThreadItem.No := Rec.FNo; |
ThreadItem.No := Rec.FNo; |
| 546 |
ThreadItem.FileName := Rec.FFileName; |
ThreadItem.FileName := Rec.FFileName; |
| 560 |
ThreadItem.AgeSage := Rec.FAgeSage; |
ThreadItem.AgeSage := Rec.FAgeSage; |
| 561 |
ThreadItem.ParentBoard := Board; |
ThreadItem.ParentBoard := Board; |
| 562 |
|
|
|
//IsLogFileチェック |
|
|
ThreadItem.IsLogFile := False; |
|
|
if FileList.Count <> 0 then begin |
|
|
if FileList.Find(ThreadItem.FileName, Index) then begin |
|
|
ThreadItem.IsLogFile := True; |
|
|
FileList.Delete(Index); |
|
|
end; |
|
|
end; |
|
|
|
|
| 563 |
//巡回リストに存在したら巡回フラグセット |
//巡回リストに存在したら巡回フラグセット |
| 564 |
if ThreadItem.IsLogFile then begin |
if ThreadItem.IsLogFile then begin |
| 565 |
idx := RoundList.Find(ThreadItem); |
idx := RoundList.Find(ThreadItem); |