Nova Unit Character Delphi 2010 - Parte II

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Veja nesta quick a nova unit Character do Delphi 2010


Olá galera, nesta Quick Tips, irei continuar a mostrar a Unit Character do Delphi. Vejamos mais métodos encontrados nesta poderosa e nova Unit.

 

IsDigit

Descrição: Podemos verificar se o carácter informado é um digito.

 

Exemplo:

procedure TFrmCharacter.ToolButton19Click(Sender: TObject);

begin

if IsDigit('0') then

ShowMessage('Digito')

else

ShowMessage('Não é Digito');

end;

 

IsDigit

Descrição: Podemos verificar se carácter na posição do índex um dígito.

 

Exemplo:

procedure TFrmCharacter.ToolButton20Click(Sender: TObject);

begin

if IsDigit('02abc', 3) then

ShowMessage('Digito')

else

ShowMessage('Não é Digito');

end;

 

IsLetter

Descrição: Podemos verificar se o carácter informado é uma letra.

 

Exemplo:

procedure TFrmCharacter.ToolButton1Click(Sender: TObject);

begin

if IsLetter('+') then

ShowMessage('Letra')

else

ShowMessage('Não é Letra');

end;

 

IsLetter

Descrição: Podemos verificar se carácter na posição do índex é uma letra.

 

Exemplo:

procedure TFrmCharacter.ToolButton2Click(Sender: TObject);

begin

if IsLetter('W1CM8*.9',4) then

ShowMessage('Letra')

else

ShowMessage('Não é Letra');

end;

 

IsLower

Descrição: Podemos verificar se o carácter informado é uma letra minúscula.

 

Exemplo:

procedure TFrmCharacter.ToolButton3Click(Sender: TObject);

begin

if IsLower('a') then

ShowMessage('Minuscula')

else

ShowMessage('Maiscula');

end;

 

IsLower

Descrição: Podemos verificar se carácter na posição do índex é uma letra minúscula.

 

Exemplo:

procedure TFrmCharacter.ToolButton4Click(Sender: TObject);

begin

if IsLower('w1CM8*.9',1) then

ShowMessage('Minuscula')

else

ShowMessage('Maiscula');

end;

 

IsNumber

Descrição: Podemos verificar se o carácter informado é um número.

 

Exemplo:

procedure TFrmCharacter.ToolButton5Click(Sender: TObject);

begin

if IsNumber('9') then

ShowMessage('Número')

else

ShowMessage('Não é Número');

end;

 

IsNumber

Descrição: Podemos verificar se carácter na posição do índex é um número.

 

Exemplo:

procedure TFrmCharacter.ToolButton6Click(Sender: TObject);

begin

if IsNumber('9AOB', 2) then

ShowMessage('Número')

else

ShowMessage('Não é Número');

end;

 

IsPunctuation

Descrição: Podemos verificar se carácter informado é uma pontuação.

 

Exemplo:

procedure TFrmCharacter.ToolButton7Click(Sender: TObject);

begin

if IsPunctuation(',') then

ShowMessage('Pontuação')

else

ShowMessage('Não é Pontuação');

end;

 

IsPunctuation

Descrição: Podemos verificar se carácter na posição do índex é uma pontuação.

 

Exemplo:

procedure TFrmCharacter.ToolButton8Click(Sender: TObject);

begin

if IsPunctuation('.9AOB', 1) then

ShowMessage('Pontuação')

else

ShowMessage('Não é Pontuação');

end;

 

 

Fico por aqui ate à próxima Quick Tips.

 

Um abraço

 

Wesley Y

wyamazack@rwsolution.com.br

 


 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?