frase palindromo

[lakers]

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

[roman]

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

// Saludos

[marcoszorrilla]

Prueba con esta frase:

dabale arroz a la zorra el abad

Un Saludo.

[roman]

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

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

// Saludos

[ContraVeneno]

Empezado por lakers

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

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

[roman]

Una ayudita:

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

// Saludos

[D-MO]

Empezado por roman

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

Saludos

[[egostar]]

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

Salud OS

[ContraVeneno]

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

[crespopg]

Hola a todos,
alguien sabe como guardar un TChart (graficas) a un archivo tipo jpg o tipo GIF.
Gracias.
Si la respuesta ya se ha dado, favor de disculparme.