Código: Seleccionar todo
ReplaceStr 
Un pequeño dato que me a echo perder a mí un rato! Omg.
Function sRev(Scad:String):String;
var
c,d:string;
i:Integer;
begin
for i := 0 to length(Scad) - 1 do
begin
c := copy(Scad, i + 1, 1);
d := copy(Scad, length(Scad) - i, 1);
result := result + ReplaceStr (c, c, d);
end;
end;showmessage(sRev ('coñospelados'));
devuelve: 'sodalepsoñoc'
