Veja como podemos converter uma string de maiúscula para minúscula (ou vice-versa) considerando os caracteres acentuados.

Se usarmos a função "UpperCase" do Delphi numa string "Márcio Antônio" o resultado seria "MáRCIO ANTôNIO". Ou seja, um verdadeiro desastre, não é ? O mesmo ocorre se tivermos que usar a função "LowerCase". Os acentos nunca são considerados... Pensando nisto (e precisando disto) eu fiz duas funções que resolvem este problema. A primeira função converte a string para maiúscula: function ToUpper(Text: String): String; var   Ind: Integer; const   LW = 'áâãàéêíóôõúüûçñ';   UP = 'ÁÂÃÀÉÊÍÓÔÕÚÜÛÇÑ'; begin   Result := '';   for Ind := 1 to Length(Text) do       if Pos(Copy(Text, Ind, 1), LW) > 0 then          Result := Result + Copy(UP, Pos(Copy(Text, Ind, 1), LW), 1)       else          Result := Result + UpperCase(Copy(Text, Ind, 1)); end; E a segunda função converte a string para minúscula: function ToLower(Text: String): String; var   Ind: Integer; const   LW = 'áâãàéêíóôõúüûçñ';   UP = 'ÁÂÃÀÉÊÍÓÔÕÚÜÛÇÑ'; begin   Result := '';   for Ind := 1 to Length(Text) do       if Pos(Copy(Text, Ind, 1), UP) > 0 then          Result := Result + Copy(LW, Pos(Copy(Text, Ind, 1), UP), 1)       else          Result := Result + LowerCase(Copy(Text, Ind, 1)); end; As duas são tão parecidas que poderiam ser uma só, adicionando um segundo parâmetro para identificar se queremos fazer o "Upper" ou o "Lower". Mas para ficar similar ao Delphi fiz duas funções.

Quebra-Linha

Colaborador..: Marcelo Torres
Categoria(s).: Delphi;
Versão.......: 1.00
Data.........: 30/06/2005 11:21:38
Visualizado..: 11464 vezes
Fonte........: Marcelo Torres