Rev 738 | Rev 740 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 738 | Rev 739 | ||
|---|---|---|---|
| Line 325... | Line 325... | ||
| 325 | 1, |
325 | 1, |
| 326 | 'ENTER NUMERIC ID', |
326 | 'ENTER NUMERIC ID', |
| 327 | 2) then |
327 | 2) then |
| 328 | begin |
328 | begin |
| 329 | if sInput = '' then continue; |
329 | if sInput = '' then continue; |
| 330 | if not IsNumeric(sInput) then |
330 | if not IsPositiveInteger(sInput) then |
| 331 | begin |
331 | begin |
| 332 | ShowMessage('Invalid numeric ID (must be a positive integer)', 'ERROR', true); |
332 | ShowMessage('Invalid numeric ID (must be a positive integer)', 'ERROR', true); |
| 333 | _Pause; |
333 | _Pause; |
| 334 | end |
334 | end |
| 335 | else if (parentOID^.DotNotation='') and (StrToInt(sInput) > 2) then |
335 | else if (parentOID^.DotNotation='') and (StrToInt(sInput) > 2) then |