| 175 |
var |
var |
| 176 |
i: Integer; |
i: Integer; |
| 177 |
begin |
begin |
| 178 |
for i := FBoardList.Count - 1 downto 0 do begin |
for i := 0 to FBoardList.Count - 1 do begin |
| 179 |
if FBoardList[i] <> nil then |
if FBoardList[i] <> nil then |
| 180 |
TRoundItem(FBoardList[i]).Free; |
TRoundItem(FBoardList[i]).Free; |
| 181 |
FBoardList.Delete(i); |
FBoardList.Delete(i); |
| 182 |
end; |
end; |
| 183 |
for i := FItemList.Count - 1 downto 0 do begin |
for i := 0 to FItemList.Count - 1 do begin |
| 184 |
if FItemList[i] <> nil then |
if FItemList[i] <> nil then |
| 185 |
TRoundItem(FItemList[i]).Free; |
TRoundItem(FItemList[i]).Free; |
| 186 |
FItemList.Delete(i); |
FItemList.Delete(i); |
| 329 |
//Item := TRoundItem.Create; |
//Item := TRoundItem.Create; |
| 330 |
//1行目はバージョン |
//1行目はバージョン |
| 331 |
if sl[0] = ROUND_INDEX_VERSION then begin |
if sl[0] = ROUND_INDEX_VERSION then begin |
| 332 |
for i := sl.Count - 1 downto 1 do begin |
for i := 1 to sl.Count - 1 do begin |
| 333 |
Item := ParseRoundBoardLine(sl[i]); |
Item := ParseRoundBoardLine(sl[i]); |
| 334 |
if Item <> nil then begin |
if Item <> nil then begin |
| 335 |
FBoardList.Add(Item); |
FBoardList.Add(Item); |
| 341 |
end; |
end; |
| 342 |
end else begin |
end else begin |
| 343 |
if FOldFileRead then begin //ギコナビ本体がボードファイルをよみとった後じゃないとクラッシュするので |
if FOldFileRead then begin //ギコナビ本体がボードファイルをよみとった後じゃないとクラッシュするので |
| 344 |
for i := sl.Count - 1 downto 1 do begin |
for i := 1 to sl.Count - 1 do begin |
| 345 |
Item := ParseOldRoundBoardLine(sl[i]); |
Item := ParseOldRoundBoardLine(sl[i]); |
| 346 |
if Item <> nil then begin |
if Item <> nil then begin |
| 347 |
FBoardList.Add(Item); |
FBoardList.Add(Item); |
| 394 |
//Item := TRoundItem.Create; |
//Item := TRoundItem.Create; |
| 395 |
//1行目はバージョン |
//1行目はバージョン |
| 396 |
if sl[0] = ROUND_INDEX_VERSION then begin |
if sl[0] = ROUND_INDEX_VERSION then begin |
| 397 |
for i := sl.Count - 1 downto 1 do begin |
for i := 1 to sl.Count - 1 do begin |
| 398 |
Item := ParseRoundThreadLine(sl[i]); |
Item := ParseRoundThreadLine(sl[i]); |
| 399 |
if Item <> nil then begin |
if Item <> nil then begin |
| 400 |
FItemList.Add(Item); |
FItemList.Add(Item); |
| 406 |
end; |
end; |
| 407 |
end else begin |
end else begin |
| 408 |
LoadRoundBoardFile; |
LoadRoundBoardFile; |
| 409 |
for i := sl.Count - 1 downto 1 do begin |
for i := 1 to sl.Count - 1 do begin |
| 410 |
Item := ParseOldRoundThreadLine(sl[i]); |
Item := ParseOldRoundThreadLine(sl[i]); |
| 411 |
if Item <> nil then begin |
if Item <> nil then begin |
| 412 |
FItemList.Add(Item); |
FItemList.Add(Item); |
| 445 |
try |
try |
| 446 |
FileName := GikoSys.GetConfigDir + ROUND_BOARD_FILENAME; |
FileName := GikoSys.GetConfigDir + ROUND_BOARD_FILENAME; |
| 447 |
sl.Add(ROUND_INDEX_VERSION); |
sl.Add(ROUND_INDEX_VERSION); |
| 448 |
for i := FBoardList.Count - 1 downto 0 do begin |
for i := 0 to FBoardList.Count - 1 do begin |
| 449 |
Item := TRoundItem(FBoardList[i]); |
Item := TRoundItem(FBoardList[i]); |
| 450 |
s := Item.URL + #1 |
s := Item.URL + #1 |
| 451 |
+ Item.BoardTitle + #1 |
+ Item.BoardTitle + #1 |
| 456 |
sl.Clear; |
sl.Clear; |
| 457 |
FileName := GikoSys.GetConfigDir + ROUND_ITEM_FILENAME; |
FileName := GikoSys.GetConfigDir + ROUND_ITEM_FILENAME; |
| 458 |
sl.Add(ROUND_INDEX_VERSION); |
sl.Add(ROUND_INDEX_VERSION); |
| 459 |
for i := FItemList.Count - 1 downto 0 do begin |
for i := 0 to FItemList.Count - 1 do begin |
| 460 |
Item := TRoundItem(FItemList[i]); |
Item := TRoundItem(FItemList[i]); |
| 461 |
s := Item.URL + #1 |
s := Item.URL + #1 |
| 462 |
+ Item.BoardTitle + #1 |
+ Item.BoardTitle + #1 |