[Función]sReverse By Himanem [Traducción poseidon]
Publicado: 27 Sep 2013, 14:50
Nota:Para los usuarios no avanzados deben agregar la funcion a Ussers así:
Un pequeño dato que me a echo perder a mí un rato! Omg.
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'