Cómo averiguar si una frase es un palíndromo

[[Al González]]

Habrá inconvenientes con las letras que lleven acentos o diéresis, pues todas las funciones nativas discriminan entre letras con diacríticos y sin diacríticos (a no ser que se me escape alguna).

La solución a esto pasa por emplear "mapeo" de caracteres. Digamos una constante String con las letras que pueden llevar diacrítico, pero sin él, y una segunda constante String con las mismas letras pero con el diacrítico puesto.

Pero si se quiere impresionar al profesor y se cuenta con el tiempo y la disposición suficientes para investigar, convendría recurrir a la función MultiByteToWideChar de la API de Windows. Ya que ésta permite separar las partes de un carácter compuesto, digamos una a acentuada (á) en las partes que la componen (a y ´). Sólo tener cuidado de exceptuar a la eñe, que por alguna "extraña" razón fue tomada como letra compuesta por algún ingeniero en alguna parte del mundo.

Un saludo.

Al González.

[ContraVeneno]

Empezado por Al González

Habrá inconvenientes con las letras que lleven acentos o diéresis, pues todas las funciones nativas discriminan entre letras con diacríticos y sin diacríticos (a no ser que se me escape alguna).

Yo pensé que esto no era problema con "AnsiUpperCase"...

[[Al González]]

Empezado por ContraVeneno

Yo pensé que esto no era problema con "AnsiUpperCase"...

Lo que tiene ANSIUpperCase es que considera a todos los caracteres del idioma actual, incluyendo los acentuados. Pero no da por iguales a una "a" y una "á".

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage (UpperCase ('a, á'));
  ShowMessage (ANSIUpperCase ('a, á'));
end;

Sería terrible que ANSIUpperCase quitara los acentos al convertir a mayúsculas.

[ContraVeneno]

cierto, cierto, ya entendí cuál sería el problema con los acentos. Gratzie

[Cheerpipe]

Les dejo una funcion para extraer los simbolos (letra pura) de caracteres multybyte, en resumen, quitar acentos y otras hierbas usando la api mencionada arriba. Un detalle importante es que esto lo hice en Delphi 2009, en versiones anteriores la declaracion de uso de la api podria variar y por tanto las funciones que puse, no funcionaran, esto porque la declaración es ahora Unicode.

Código Delphi [-]
function extractSimbolFromMultiByteChar(Text: PAnsiChar): Char;
var
  Buffer: Char;
  Size: Integer;
begin
  Size := MultiByteToWideChar(0,0,Text,-1,nil,0);
  if (Size > 0) then
  begin
    MultiByteToWideChar(0 ,MB_COMPOSITE , Text,-1, @Buffer, Size);
    result:=Buffer;
  end;
end;

function clearMultiByteChar(Text: String): String;
var
  i: Integer;
begin
  result:='';
  for I := 1 to Length(Text) do
    Result:=Result+extractSimbolFromMultiByteChar(PAnsiChar(AnsiString(text[i])));
end;