Analitcs

Pesquisar no conteúdo do blog.atlabs.com.br

sexta-feira, 28 de setembro de 2012

DELPHI - Função igual a LowerCase Retornando Tipo Char

Reações: 
function  LowCase( ch : Char ) : Char;
begin
  Result := ch;
  case Result of
    'A'..'Z':  Dec(Result, Ord('A') - Ord('a'));
  end;
end;

Nenhum comentário:

Postar um comentário

Observação: somente um membro deste blog pode postar um comentário.

Max Gehringer