É necessário Estar declarado SysUtils na seção uses,
em versões unicode declare System.SysUtils.
Abaixo segue o código fonte:
1 2 3 4 5 6 7 8 | function IsDigit(Key : Char) : Boolean; begin {$IFDEF UNICODE} Result := CharInSet(Key, ['0'..'9']); {$ELSE} Result := (Key in ['0'..'9']); {$ENDIF} end; |
Exemplos de uso:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | procedure TForm1.Button1Click(Sender: TObject); begin if IsDigit('e') then ShowMessage('O Caracterer é número.') else ShowMessage('O Caracterer não é número.'); if IsDigit('7') then ShowMessage('O Caracterer é número.') else ShowMessage('O Caracterer não é número.'); if IsDigit('*') then ShowMessage('O Caracterer é número.') else ShowMessage('O Caracterer não é número.'); end; |
