Invertir string -

[mariolop12]

Empezado por xEsk

Hola, como no sé que quieres hacer con el resultado de "invertir", he hecho que se muestre con un ShowMessage.

Sería bueno que usaras las etiquetas de código DELPHI, así queda todo mucho mas bonito y claro Código Delphi [-] implementation {$R *.dfm} Function String_Reverse(S : String): String;
Var i : Integer; Begin Result := '';
For i := Length(S) DownTo 1 Do Begin Result := Result + Copy(S,i,1); End;
End;



Saludos.

Gracias por tu respuesta,en tal caso i sería el string ya invertido?...
yo necesito colocar si un string es igual a su inverso...


lo estoy haciendo de esta manera...

Código Delphi [-]
if ((trunc(Int(A)) mod 4567))=(String_Reverse(IntToStr((trunc(Int(A)) mod 4567))))
then
begin
showmessage('El numero es capicua')
end
else
showmessage('El numero no es capicua');

y me muestra este error:

[Error] mario.pas(54): Incompatible types: 'String' and 'Int64'
la linea 54 es : Then


--------------