Bug em Função UpperCase e LowerCase ..Será????

Delphi

03/12/2004

Notei que estas duas funçoes Parecem Não Agir em Alguns Caracteres
Por exemplo :
[b:898d7cbc97]LowerCase(´Ç´) e UpperCase(´ç´) [/b:898d7cbc97]não faz o efeito desejado
Para Verificar

procedure BugSera;
var
palavra:String;
testo:String;
i:Integer;
begin
  palavra:=´ÇÇÇABCD´;
  texto:=´´;
  for i:=1 to length(palavra) do
      texto:=Texto + LowerCase(palavra[i]);
  Showmessage(Texto);
  Palavra:=´çççabcd´;
  Texto:=´´;
   for i:=1 to length(palavra) do
       texto:=Texto +UpperCase(palavra[i]);
   Showmessage(Texto);
end;


Esquisito ne :?: :?: :?: :?: :?:


Marco Salles

Marco Salles

Curtidas 0

Respostas

Gandalf.nho

Gandalf.nho

03/12/2004

Não cheguei a testar, mas experimente usar AnsiLowerCase e AnsiUpperCase.


GOSTEI 0
POSTAR