Olá
galera, nesta Quick Tips, irei continuar a mostrar a nova Unit Character do
Delphi. Ela serve para trabalharmos com
os caracteres, podemos tratar diversas informações, verificar se um determinado
carácter é maiúsculo, se é um espaço, e por ai vai.
IsSeparator
Descrição:
Podemos verificar se o carácter informado é um separador ou não.
Exemplo:
procedure
TFrmCharacter.ToolButton9Click(Sender: TObject);
begin
if IsSeparator(' ') then
ShowMessage('Separator')
else
ShowMessage('Não é Separator');
end;
IsSeparator
Descrição:
Podemos verificar se carácter na posição do índex um separador.
Exemplo:
procedure
TFrmCharacter.ToolButton10Click(Sender: TObject);
begin
if IsSeparator('
9AOB', 2) then
ShowMessage('Separator')
else
ShowMessage('Não é
Separator');
end;
IsUpper
Descrição:
Podemos verificar se o carácter informado é uma letra maiúscula.
Exemplo:
procedure
TFrmCharacter.ToolButton11Click(Sender: TObject);
begin
if IsUpper('A') then
ShowMessage('Maiscula')
else
ShowMessage('Minuscula');
end;
IsUpper
Descrição:
Podemos verificar se carácter na posição do índex uma letra maiúscula.
Exemplo:
procedure
TFrmCharacter.ToolButton12Click(Sender: TObject);
begin
if IsUpper('AbC',2) then
ShowMessage('Maiscula')
else
ShowMessage('Minuscula');
end;
ToUpper
Descrição:
Podemos converter o carácter informado em maiúsculo.
Exemplo:
procedure
TFrmCharacter.ToolButton13Click(Sender: TObject);
begin
ShowMessage(ToUpper('a'));
end;
ToUpper
Descrição:
Podemos converter a string informada em maiúsculo.
Exemplo:
procedure
TFrmCharacter.ToolButton14Click(Sender: TObject);
begin
ShowMessage(ToUpper('Bola'));
end;
ToLower
Descrição:
Podemos converter o carácter informado em minúsculo.
Exemplo:
procedure
TFrmCharacter.ToolButton15Click(Sender: TObject);
begin
ShowMessage(ToLower('A'));
end;
ToLower
Descrição:
Podemos converter a string informada em minúsculo.
Exemplo:
procedure
TFrmCharacter.ToolButton16Click(Sender: TObject);
begin
ShowMessage(ToLower('Bola'));
end;
IsWhiteSpace
Descrição:
Podemos verificar se o carácter informado é um espaço.
Exemplo:
procedure
TFrmCharacter.ToolButton17Click(Sender: TObject);
begin
if IsWhiteSpace(' ') then
ShowMessage('Espaço')
else
ShowMessage('Não é Espaço')
end;
IsWhiteSpace
Descrição:
Podemos verificar se carácter na posição do índex um espaço.
Exemplo:
procedure
TFrmCharacter.ToolButton18Click(Sender: TObject);
begin
if IsWhiteSpace(' A B
C',3) then
ShowMessage('Espaço')
else
ShowMessage('Não é Espaço')
end;
Fico
por aqui ate à próxima Quick Tips.
Um
abraço
Wesley
Y
wyamazack@rwsolution.com.br
