frase palindromo

[[egostar]]

Antes de irme a casita quiero comentar que me quede con este asunto del palíndromo y debo decir que roman es realmente un maestro, cosa nada extraña, pero si quiero reiterarlo. Ha dado la solución exacta a este problema con la rutina Assert juntamente con la función ReverseString().

Aqui pego el código que escribí y reitero, quede gratamente sorprendido.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  S: String;
begin
  S := StringReplace('dabale arroz a la zorra el abad', ' ', '', [rfReplaceAll]);
  try
     Assert(ReverseString(S) = S);
     ShowMessage('SI es un Palídromo');
  except
     ShowMessage('NO es un Palídromo');
  end;
end;

Salud OS.

Edito: No es Políndromo es Palíndromo, lo siento.

[ContraVeneno]

Pues claro hombre, tanto que se la complica uno:

Código SQL [-]
Declare @Str varchar(60)
Select @str='Anita lava la tina'

Select 
case when (reverse(replace(@str, ' ',''))=replace(@str, ' ','')) then 1 else 0 end EsPali

[lakers]

gracias
veneno ha sido un mal entendido,pido disculpas,pero pienso que hay miles maneras de decir las cosas,¿?ke sepas ke llevo un par de semanas con delphi¿?
gracias