Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/RoundData.pas

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

revision 1.12 by h677, Sat Dec 13 09:52:48 2003 UTC revision 1.13 by deux, Wed Dec 24 08:18:31 2003 UTC
# Line 175  procedure TRoundList.Clear; Line 175  procedure TRoundList.Clear;
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);
# Line 329  begin Line 329  begin
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);
# Line 341  begin Line 341  begin
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);
# Line 394  begin Line 394  begin
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);
# Line 406  begin Line 406  begin
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);
# Line 445  begin Line 445  begin
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
# Line 456  begin Line 456  begin
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

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

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