- Este debate tiene 2 respuestas, 2 mensajes y ha sido actualizado por última vez el hace 1 año, 2 meses por .
Viendo 3 entradas - de la 1 a la 3 (de un total de 3)
-
Entradas
-
Hola, ¿algún procedimiento rápido que quite las tildes/acentos a una cadena de texto?
Estoy usando Delphi 6 y Delphi 7.Puedes usar la siguiente función, a la que le pasas el texto y te devuelve el mismo texto, pero sin tildes en las vocales:
12345678910111213141516function quitarTildes (texto : string) : string;constvocalesTildeMin: array [1..5] of string = ('á', 'é', 'í', 'ó', 'ú');vocalesSinTildeMin: array [1..5] of string = ('a', 'e', 'i', 'o', 'u');vocalesTildeMay: array [1..5] of string = ('Á', 'É', 'Í', 'Ó', 'Ú');vocalesSinTildeMay: array [1..5] of string = ('A', 'E', 'I', 'O', 'U');vari: integer;beginfor i := 1 to 5 dobegintexto := StringReplace(texto, vocalesTildeMin[i], vocalesSinTildeMin[i], [rfReplaceAll]);texto := StringReplace(texto, vocalesTildeMay[i], vocalesSinTildeMay[i], [rfReplaceAll]);end;Result := texto;end;Un ejemplo de uso:
123iniciales := inicialesNombre + copy(apellido1, 0, 1) + copy(apellido2, 0, 1);//Quitamos las posibles tildes/acentosiniciales := quitarTildes (iniciales);
Viendo 3 entradas - de la 1 a la 3 (de un total de 3)
- Debes estar registrado para responder a este debate.
