[firebase-br] CASE SENTIVIVE

[Edvaldo (bol)]

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
>