Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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 |
|
|
|