[firebase-br] CASE SENTIVIVE

[eduardo]

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
>
>
>  
>