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