Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros temas > Trucos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Los mejores trucos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 07-06-2006
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 12.560
Poder: 27
dec Va camino a la famadec Va camino a la fama
Quitar los acentos (y otros caracteres) de una cadena

La siguiente función elimina los acentos y otros determinados caracteres de la cadena que pasemos como parámetro. Esta función la escribió el compañero Federico (delphi.com.ar) en algún Hilo de los Foros del ClubDelphi:

Código Delphi [-]
function QuitarAcentos(const cadena: string) : string;
const
  CA = 'ÁÉÍÓÚÀÈÌÒÙÄËÏÖÜÂÊÎÔÛáéíóúàèìòùäëïöüâêîôû';
  CB = 'AEIOUAEIOUAEIOUAEIOUaeiouaeiouaeiouaeiou';
var
  Ch: Char;
  L, P: Integer;
  Source, Dest: PChar;
begin
  L := Length(cadena);
  SetLength(Result, L);
  Source := Pointer(cadena);
  Dest := Pointer(Result);
  while L <> 0 do
  begin
    Ch := Source^;
    P := Pos(Ch, CA);
    if P > 0 then
      Dest^ := CB[P]
    else
      Dest^ := Ch;
    Inc(Source);
    Inc(Dest);
    Dec(L);
  end;
end;
Responder Con Cita
  #2  
Antiguo 29-01-2013
Avatar de radenf
radenf radenf is offline
Miembro
 
Registrado: oct 2007
Ubicación: Viña del Mar,Chile
Posts: 608
Poder: 11
radenf Va por buen camino
Excelente
La he estado buscando por semanas.
Muchas gracias
Salu2
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 12:58:44.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi