Buscar

Funções uppercase e lowercase incluindo letras acentuadas

Código

Function UpperCase(St:string):string;
var a:integer;
begin
  for a:=1 to Length(St) do
    if(St[a]in['a'..'z'])or(St[a]in['à'..'ý'])then Dec(St[a],32);
  Result:=St;
end;

function LowerCase(St:string):string;
var a:integer;
begin
  for a:=1 to Length(St) do
  if(St[a]in['A'..'Z'])or(St[a]in['À'..'Ý'])then Inc(St[a],32);
  Result:=St;
end;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Object pascal
Adicionada dia: 04/05/07
Por: Fernando A Rabelo
Visualizada: 7811 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009