Nova Unit Character Delphi 2010 - Parte II

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