=================================================================== RCS file: /cvsroot/gikonavi/gikonavi/Round.pas,v retrieving revision 1.7 diff -r1.7 Round.pas 72a73,84 > > if not Giko.GikoForm.LoginAction.Checked then begin > if GikoSys.Setting.UserID <> '' then begin > msg := 'ログインしないと巡回は出来ません' + #13#10 > + '今ログインしますか'; > if MsgBox(Handle, msg, '確認', MB_YESNO or MB_ICONQUESTION or MB_DEFBUTTON2) <> IDYES then begin > Exit; > end; > Giko.GikoForm.LoginAction.Execute; > end; > end; >
=================================================================== RCS file: /cvsroot/gikonavi/gikonavi/RoundData.pas,v retrieving revision 1.14 diff -r1.14 RoundData.pas 429c429,430 < for i := 1 to sl.Count - 1 do begin --- > i := 1; > while i < sl.Count do begin 437c438,439 < end; --- > end; > i := i + 1;