保存時の例外処理を追加

diff --git a/RoundData.pas b/RoundData.pas
index bda86b6..48d3216 100644 (file)
--- a/RoundData.pas
+++ b/RoundData.pas
@@ -532,16 +532,19 @@ begin
                sl.Add(ROUND_INDEX_VERSION);
                for i := 0 to FBoardList.Count - 1 do begin
                        Item := TRoundItem(FBoardList[i]);
-                       if Item.TmpURL <> '' then begin
-                               s := Item.TmpURL + #1
-                                        + Item.BoardTitle + #1
-                                        + Item.RoundName;
-                       end else begin
-                               s := Item.URL + #1
-                                        + Item.BoardTitle + #1
-                                        + Item.RoundName;
+                       try
+                               if Item.TmpURL <> '' then begin
+                                       s := Item.TmpURL + #1
+                                                + Item.BoardTitle + #1
+                                                + Item.RoundName;
+                               end else begin
+                                       s := Item.URL + #1
+                                                + Item.BoardTitle + #1
+                                                + Item.RoundName;
+                               end;
+                               sl.Add(s);
+                       except
                        end;
-                       sl.Add(s);
                end;
                sl.SaveToFile(FileName);
                sl.Clear;
@@ -549,20 +552,23 @@ begin
                sl.Add(ROUND_INDEX_VERSION);
                for i := 0 to FItemList.Count - 1 do begin
                        Item := TRoundItem(FItemList[i]);
-                       if Item.TmpURL <> '' then begin
-                               s := Item.TmpURL + #1
-                                + Item.BoardTitle + #1
-                                + Item.FileName + #1
-                                + Item.ThreadTitle + #1
-                                + Item.RoundName;
-                       end else begin
-                               s := Item.URL + #1
-                                + Item.BoardTitle + #1
-                                + Item.FileName + #1
-                                + Item.ThreadTitle + #1
-                                + Item.RoundName;
+                       try
+                               if Item.TmpURL <> '' then begin
+                                       s := Item.TmpURL + #1
+                                        + Item.BoardTitle + #1
+                                        + Item.FileName + #1
+                                        + Item.ThreadTitle + #1
+                                        + Item.RoundName;
+                               end else begin
+                                       s := Item.URL + #1
+                                        + Item.BoardTitle + #1
+                                        + Item.FileName + #1
+                                        + Item.ThreadTitle + #1
+                                        + Item.RoundName;
+                               end;
+                               sl.Add(s);
+                       except
                        end;
-                       sl.Add(s);
                end;
                sl.SaveToFile(FileName);
        finally