巡回データが上下逆になる不具合の修正

[gikonavigoeson/gikonavi.git] / RoundData.pas

diff --git a/RoundData.pas b/RoundData.pas
index 692f308..608d573 100644 (file)
--- a/RoundData.pas
+++ b/RoundData.pas
@@ -445,7 +445,7 @@ begin
        try
                FileName := GikoSys.GetConfigDir + ROUND_BOARD_FILENAME;
                sl.Add(ROUND_INDEX_VERSION);
-               for i := 0 to FBoardList.Count - 1 do begin
+               for i := FBoardList.Count - 1 downto 0 do begin
                        Item := TRoundItem(FBoardList[i]);
                        s := Item.URL + #1
                                 + Item.BoardTitle + #1
@@ -456,7 +456,7 @@ begin
                sl.Clear;
                FileName := GikoSys.GetConfigDir + ROUND_ITEM_FILENAME;
                sl.Add(ROUND_INDEX_VERSION);
-               for i := 0 to FItemList.Count - 1 do begin
+               for i := FItemList.Count - 1 downto 0 do begin
                        Item := TRoundItem(FItemList[i]);
                        s := Item.URL + #1
                                 + Item.BoardTitle + #1