É necessário Estar declarado Windows na seção uses,
em versões unicode declare Winapi.Windows.
Função do Delphi: IsCharAlphaNumeric ( Char )
Retorno: LongBool
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 IsCharAlphaNumeric('e') then ShowMessage('O Caracterer é letra ou número.') else ShowMessage('O Caracterer não é letra ou número.'); if IsCharAlphaNumeric('7') then ShowMessage('O Caracterer é letra ou número.') else ShowMessage('O Caracterer não é letra ou número.'); if IsCharAlphaNumeric('*') then ShowMessage('O Caracterer é letra ou número.') else ShowMessage('O Caracterer não é letra ou número.'); end; |
