frase palindromo

[ContraVeneno]

Compañero lakers, en mi primer mensaje, el cuál hiba cargado con un toque de sarcasmo, te he preguntado amablemente si deseabas conocer la razón por la cual mi sentido visual se ha sentido agraviado. Para algunos otros ha sido muy claro, incluso han colaborado con un muy jocoso código para tratar de corregir el problema al que yo hacía alusión.

Pero al parecer no te has percatado de tal situación y ha sido necesario que el compañero egostar haga referencia a una de nuestras principales normas de convivencia. Y como estoy seguro que ya la has leído, tengo confianza en que tomarás medidas al respecto.

Ahora bien, ningún código es inutil, si así lo fuera, nadie se molestaría en escribirlo. El hilo al que hago referencia, es más bien un lugar donde se pueden encontrar situaciones que para algunos son inutiles y para otros no lo son, pero siempre con un toque de camaradería y diversión. Cabe mencionar que yo nunca he dicho que el código aqui solicitado sea inutil; eso dependerá de quien y para que lo solicite.

Incluso te he dado una referencia de como se puede hacer lo que solicitas en SQL Server, con solo una línea de código y estoy seguro que esto, combinado con lo que respondió maese Román, te darán las referencias y las herramientas necesarias para que puedas solucionar tu problema.

En fin, si te has sentido ofendido por mis comentarios, te pido de manera muy sincera, que me disculpes, no era mi intensión ofender a nadie. Y si el código que te he propuesto no te ha sido de utilidad, te pido me lo informes y trataré de esforzarme para la próxima vez.

Saludos cordiales.

P.D. Lástima que los lakers ya quedaron eliminados, junto con los nuggets.. argh ahora no se a quien irle.

[[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