Nova Unit Character Delphi 2010 - Parte I

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