Como testar se um carácter é um número? – Show Delphi

DICAS

Visite a biblioteca de dicas da comunidade.

Saiba mais

ARTIGOS

Abordagens detalhadas sobre assuntos diversos.

Saiba mais

INICIANTES

Aprenda a programar de um modo simples e fácil.

Saiba mais

DOWNLOADS

Acesse os materiais exclusivos aos membros.

Saiba mais
voltar

PARA QUEM GOSTA DE DELPHI

Como testar se um carácter é um número?

 

É 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;
Facebook Comments

Posts Relacionados

  • Administrador
  • 566 views
  • 0 comentários
  • 24 de março de 2015

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Ir ao topo


© 2016 Infus Soluções em Tecnologia - Todos os Direitos Reservados