RoundBoard.2ch、RoundItem.2chの内容が１行もない場合クラッシュするバグを修正

diff --git a/RoundData.pas b/RoundData.pas
index 24208f7..5cb0c5d 100644 (file)
--- a/RoundData.pas
+++ b/RoundData.pas
@@ -381,6 +381,12 @@ begin
                 end;
             end;
             //Item := TRoundItem.Create;
+
+            if sl.Count == 0 then begin
+                //\83G\83\89\81[\97\8e\82¿\82·\82é\82È\82Ç\82µ\82Ä\83t\83@\83C\83\8b\82Ì\93à\97e\82ª\8bó\82¾\82Æ\83G\83\89\81[\82É\82È\82é\91Î\8dô
+                sl.Add(ROUND_INDEX_VERSION);
+            end;
+
             delCount := 0;
             //\82P\8ds\96Ú\82Í\83o\81[\83W\83\87\83\93
                        if sl[0] = ROUND_INDEX_VERSION then begin
@@ -442,6 +448,11 @@ begin
                 end;
             end;
             //Item := TRoundItem.Create;
+            if sl.Count == 0 then begin
+                //\83G\83\89\81[\97\8e\82¿\82·\82é\82È\82Ç\82µ\82Ä\83t\83@\83C\83\8b\82Ì\93à\97e\82ª\8bó\82¾\82Æ\83G\83\89\81[\82É\82È\82é\91Î\8dô
+                sl.Add(ROUND_INDEX_VERSION);
+            end;
+
             delCount := 0;
                        //\82P\8ds\96Ú\82Í\83o\81[\83W\83\87\83\93
             if sl[0] = ROUND_INDEX_VERSION then begin