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

[gikonavigoeson/gikonavi.git] / Round.pas

diff --git a/Round.pas b/Round.pas
index 62e6cc7..0e6d2c9 100644 (file)
--- a/Round.pas
+++ b/Round.pas
@@ -69,6 +69,7 @@ begin
 //             GikoSys.MsgBox(msg, '\83G\83\89\81[', MB_OK or MB_ICONSTOP);
 //             Exit;
 //     end;
+    Giko.GikoForm.LoginAction.Checked := true;
        if not Giko.GikoForm.LoginAction.Checked then begin
                msg := '\83\8d\83O\83C\83\93\82µ\82È\82¢\82Æ\8f\84\89ñ\82Í\8fo\97\88\82Ü\82¹\82ñ' + #13#10
                                 + '\95ª\82©\82ç\82È\82¢\90l\82Í\83M\83R\83i\83r\83X\83\8c\83b\83h\82Å\95·\82¢\82Ä\82­\82¾\82³\82¢';
@@ -228,7 +229,7 @@ begin
        RoundListView.OnChange := nil;
        try
                RoundListView.Clear;
-               for i := 0 to RoundList.Count[grtBoard] - 1 do begin
+               for i := RoundList.Count[grtBoard] - 1 downto 0 do begin
                        if (RoundList.Items[i, grtBoard].RoundName = RoundName) or (RoundName = '') then begin
                                ListItem := RoundListView.Items.Add;
                                ListItem.Data := RoundList.Items[i, grtBoard];
@@ -239,7 +240,7 @@ begin
                                ListItem.ImageIndex := 0;
                        end;
                end;
-               for i := 0 to RoundList.Count[grtItem] - 1 do begin
+               for i := RoundList.Count[grtItem] - 1 downto 0 do begin
                        if (RoundList.Items[i, grtItem].RoundName = RoundName) or (RoundName = '') then begin
                                ListItem := RoundListView.Items.Add;
                                ListItem.Data := RoundList.Items[i, grtItem];