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

Show Delphi » Object Pascal e Strings » Como testar se um carácter é um número?

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 Box
  • InfusTec
  • 6.077 views
  • 0 comentários
  • 24 de março de 2015

Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!

Deixe um comentário

    Patrocinado


    Patrocinado

    Patrocinado

Ir ao topo

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