Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.501 by genyakun, Fri Jan 14 10:44:26 2005 UTC revision 1.502 by genyakun, Sat Jan 15 06:16:07 2005 UTC
# Line 6849  procedure TGikoForm.SelectNewRoundNameEx Line 6849  procedure TGikoForm.SelectNewRoundNameEx
6849  var  var
6850          s: string;          s: string;
6851          Dlg: TRoundNameDialog;          Dlg: TRoundNameDialog;
6852            cnt: Integer;
6853    
6854  begin  begin
6855            //登録上限チェック
6856            cnt := RoundList.Count[grtBoard];
6857            cnt := cnt + RoundList.Count[grtItem];
6858            if cnt > 500 then begin
6859                    MsgBox(Handle, '巡回は500以上登録できません', 'エラー', MB_OK or MB_ICONSTOP);
6860                    Exit;
6861            end;
6862    
6863          Dlg := TRoundNameDialog.Create(Self);          Dlg := TRoundNameDialog.Create(Self);
6864          try          try
6865                  Dlg.ShowModal;                  Dlg.ShowModal;

Legend:
Removed from v.1.501  
changed lines
  Added in v.1.502

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26