frase palindromo
 

wenas a todos
keria hacer un programa para saber si una determinada frase es palindromo o no.lokeria hacer primero kitando el espacio de la frase y luego recoriendo la frase.
pero estuve buscando en la ayuda de delphi alguna funcion kime kite el espacio pero no lo encontrado,yake al hacer (por ej)un if cadena[i]=' 'then
cadena[i]=cadena[i+1]se me repite el caracter siguiente dos veces
haber si me podeis hechar la mano por fa please
gracias
saudos
:(

Código Delphi [-]
S := StringReplace(S, ' ', '', [rfReplaceAll]);

// Saludos

Prueba con esta frase:

Un Saludo.

Código Delphi [-]
var
  S: String;

begin
  S := StringReplace('dabale arroz a la zorra el abad', ' ', '', [rfReplaceAll]);
  Assert(StrUtils.ReverseString(S) = S);
end;

:)

// Saludos

que flojera me ha dado leer este mensaje... hasta me duelen los ojos.
¿quieres saber por qué?

Una ayudita:

Código Delphi [-]
S := StringReplace(S, 'k', 'qu', [rfReplaceAll]);
S := StringReplace(S, 'w', 'bu', [rfReplaceAll]);

// Saludos

jajaja no sería mala idea que aplicaras esto al parser del foro :D;)

Saludos

Que interesante e ingeniosa manera de ser diplomático roman.

Salud OS

a ver si esto te sirve
 

Código SQL [-]

Declare @Str varchar(60)
Select @str='Ana lleva al oso la avellana'

Select 
case when reverse(substring(replace(@str, ' ',''),(len(replace(@str, ' ',''))/2)+2,(len(replace(@str, ' ',''))/2)+1))=substring(replace(@str, ' ',''),1,(len(replace(@str, ' ',''))/2)) then 1 else 0 end EsPali

Para ponernos al tono de lo inentendible, ya sólo falta que seoane nos obsequie el código en brainfucker :D

// Saludos

Ni se te hubiera ocurrido mencionar su nombre, ya que creo que a cada momento pasa buscando su nombre en nuevos mensajes utilizando el buscador de los foros como lo hace con google:D

Saludos

jaja, Roman, me has recordado este hilo de códigos inútiles
y precisamente ahí, viene un ejemplo en delphi para determinar si una frase es palíndromo o no. Bueno, al menos invierte la cadena, que es la mitad del trabajo.

que cosas de la vida.

:( Si, tengo falta de autoestima, y me gusta ver mi nombre escrito :p :D

PD: Como si tu nunca lo hubieras hecho ... :p

:eek: Así en frió ni lo intento, que me puede salir una hernia en el cerebro, lo de "jodecerebros" no es en broma. Mejor lo dejamos para cuando me levante con ganas de programar, así seguro que se me quitan :D

Hey, ¡no vale! :D

Van dos veces en diez minutos que entro a este hilo con la esperanza de ver muchos <<< ++++ ..... <<<<< [[[ ]]]]] y nada :(

:D

// Saludos

gracias
 

gracias a todos
los compañeros que me ayudado con sus respuesta salvo el personaje veneno ke no se kien sea de su nacion.
pienso ke te falta un poko de educacion y de respeto a la gente si usted piensa ke es un codigo inutil y te cansa la vista de leerlo pues no lo lees na mas y guarda tus resptas para ti la gente esta aki en el foro para compartir ideas,trbjos, no para ver a los graciosos cmo tu.
(me parece ke te ase falta alguien ke te explike ke kiere decir un foro compadre)
en fin los chabales como tu la verdad ke no merecen la pena

Vamos amigo lakers, no lo tomes tan a pecho, solo te comento que una de las normas del foro es esta.


Así que no te molestes, solo queremos que este foro mantenga un nivel adecuado.


Salud OS.

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 :mad: ahora no se a quien irle.

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.

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