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.20 by h677, Sat Jun 25 11:27:21 2005 UTC revision 1.21 by h677, Sat Jun 25 13:01:32 2005 UTC
# Line 532  begin Line 532  begin
532                  sl.Add(ROUND_INDEX_VERSION);                  sl.Add(ROUND_INDEX_VERSION);
533                  for i := 0 to FBoardList.Count - 1 do begin                  for i := 0 to FBoardList.Count - 1 do begin
534                          Item := TRoundItem(FBoardList[i]);                          Item := TRoundItem(FBoardList[i]);
535                          if Item.TmpURL <> '' then begin                          try
536                                  s := Item.TmpURL + #1                                  if Item.TmpURL <> '' then begin
537                                           + Item.BoardTitle + #1                                          s := Item.TmpURL + #1
538                                           + Item.RoundName;                                                   + Item.BoardTitle + #1
539                          end else begin                                                   + Item.RoundName;
540                                  s := Item.URL + #1                                  end else begin
541                                           + Item.BoardTitle + #1                                          s := Item.URL + #1
542                                           + Item.RoundName;                                                   + Item.BoardTitle + #1
543                                                     + Item.RoundName;
544                                    end;
545                                    sl.Add(s);
546                            except
547                          end;                          end;
                         sl.Add(s);  
548                  end;                  end;
549                  sl.SaveToFile(FileName);                  sl.SaveToFile(FileName);
550                  sl.Clear;                  sl.Clear;
# Line 549  begin Line 552  begin
552                  sl.Add(ROUND_INDEX_VERSION);                  sl.Add(ROUND_INDEX_VERSION);
553                  for i := 0 to FItemList.Count - 1 do begin                  for i := 0 to FItemList.Count - 1 do begin
554                          Item := TRoundItem(FItemList[i]);                          Item := TRoundItem(FItemList[i]);
555                          if Item.TmpURL <> '' then begin                          try
556                                  s := Item.TmpURL + #1                                  if Item.TmpURL <> '' then begin
557                                   + Item.BoardTitle + #1                                          s := Item.TmpURL + #1
558                                   + Item.FileName + #1                                           + Item.BoardTitle + #1
559                                   + Item.ThreadTitle + #1                                           + Item.FileName + #1
560                                   + Item.RoundName;                                           + Item.ThreadTitle + #1
561                          end else begin                                           + Item.RoundName;
562                                  s := Item.URL + #1                                  end else begin
563                                   + Item.BoardTitle + #1                                          s := Item.URL + #1
564                                   + Item.FileName + #1                                           + Item.BoardTitle + #1
565                                   + Item.ThreadTitle + #1                                           + Item.FileName + #1
566                                   + Item.RoundName;                                           + Item.ThreadTitle + #1
567                                             + Item.RoundName;
568                                    end;
569                                    sl.Add(s);
570                            except
571                          end;                          end;
                         sl.Add(s);  
572                  end;                  end;
573                  sl.SaveToFile(FileName);                  sl.SaveToFile(FileName);
574          finally          finally

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

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