Trasponer texto
 

Hola a todos, tengo una duda, necesito trasponer texto (en un Memo) de esta forma:

Original:
Resultado buscado:
Gracias.

Hola,

Código Delphi [-]
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;

Sí; del amigo Zarko Gajic es. :)

si tienes Delphi7 en adelante, ya la funcion ya viene hecha :) solo agrega strutils a tu lista de unidades

Hola,

El caso es que me sonaba en Delphi 7 esa función... Gracias por recordarlo Luis. :)

Creo que no viene de más poner el nombre de la tal función:

ReverseString

// Saludos

Muchas Gracias, por la dedicación y rapidéz.

Gracias.