[firebase-br] CASE SENTIVIVE

Edvaldo (bol) evgomes em bol.com.br
Seg Nov 8 21:26:34 -03 2004


ah!! eu nem tinha me ligado que vc estava utilizando ANSIUPPERCASE.. senaum
nem tinha enviado o código.. só tinha observado as strings.

Edvaldo
----- Original Message -----
From: "eduardo" <eduardo em icontroller.com.br>
To: "FireBase" <lista em firebase.com.br>
Sent: Monday, November 08, 2004 6:27 PM
Subject: Re: [firebase-br] CASE SENTIVIVE


> Legal
>
> observe que eu fazia
>
>     com := com+AnsiUpperCase(com);
>     sem := sem+AnsiUpperCase(sem);
>
> Dá no mesmo, é só um pouco de preguiça e receio de que, dependendo da
> página de código local, pudesse haver diferença na conversão para
> maiúsculas, mas valeu. Obrigado.
>
> Edvaldo (bol) wrote:
>
> >Faltou as maisculas, veja abaixo como fica:
> >
> >function RemoveAcento(Str:String): String;
> >Const
> >    ComAcento = 'àâêôûãõáéíóúçüÀÂÊÔÛÃÕÁÉÍÓÚÇÜ';
> >    SemAcento = 'aaeouaoaeioucuAAEOUAOAEIOUCU';
> >Var
> >    x : Integer;
> >Begin
> >    For x := 1 to Length(Str) do
> >       if Pos(Str[x],ComAcento) <> 0  Then
> >          Str[x] := SemAcento[Pos(Str[x],ComAcento)];
> >    Result := Str;
> >end;
> >
> >----- Original Message -----
> >From: "eduardo" <eduardo em icontroller.com.br>
> >To: "FireBase" <lista em firebase.com.br>
> >Sent: Monday, November 08, 2004 2:30 PM
> >Subject: Re: [firebase-br] CASE SENTIVIVE
> >
> >
> >
> >
> >>oi Bruno
> >>
> >>Eu uso assim (Delphi)
> >>
> >>function TiraAcento(const T:string):string;
> >>var com, sem:string;
> >>    i, n:Integer;
> >>begin
> >>     com := 'áéíóúâêîôûãõäëïöüàèìòùç';
> >>     sem := 'aeiouaeiouaoaeiouaeiouc';
> >>
> >>     com := com+AnsiUpperCase(com);
> >>     sem := sem+AnsiUpperCase(sem);
> >>     Result := T;
> >>     for i := 1 to Length(Result) do
> >>         begin
> >>              n := Pos(Result[i], com);
> >>              if n > 0 then
> >>                 Result[i] := Sem[n];
> >>         end;
> >>end;
> >>
> >>um abraço
> >>Eduardo
> >>
> >>Bruno Garcia wrote:
> >>
> >>
> >>
> >>>Desculpe-me a ignorância, mas para passar para maiúsculo tudo bem, mas
o
> >>>
> >>>
> >que
> >
> >
> >>>estão usando para tirar os acentos das palavras???
> >>>
> >>>
> >>>
> >>>
> >>______________________________________________
> >>FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
> >>Para editar sua configuração na lista, use o endereço
> >>
> >>
> >http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
> >
> >
> >
> >
> >______________________________________________
> >FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
> >Para editar sua configuração na lista, use o endereço
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
> >
> >
> >
> >
>
>
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
> Para editar sua configuração na lista, use o endereço
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
>





Mais detalhes sobre a lista de discussão lista