板更新したときのURLの切り替えで、BoardのURLが正しく入れ替わらない不具合の修正

[gikonavigoeson/gikonavi.git] / RoundData.pas

diff --git a/RoundData.pas b/RoundData.pas
index 90ebfd6..525c276 100644 (file)
--- a/RoundData.pas
+++ b/RoundData.pas
@@ -648,8 +648,8 @@ begin
     //\82±\82±\82©\82ç\81ABoard\82ÌURL\82Ì\95Ï\8dX
     for j :=0 to oldURLs.Count - 1 do begin
                for i :=0 to FBoardList.Count - 1 do begin
-               if TRoundItem(FBoardList[i]).FURL = oldURLs[i] then
-               TRoundItem(FBoardList[i]).FURL := newURLs[i];
+                       if TRoundItem(FBoardList[i]).FURL = oldURLs[j] then
+               TRoundItem(FBoardList[i]).FURL := newURLs[j];
        end;
     end;
     //\82±\82±\82Ü\82Å\81ABoard\82ÌURL\82Ì\95Ï\8dX