[elk1988]

доброе время суток, могли бы вы мне подсказать как можно перевести javascript в код на делфи

var i;
var r="";
var l=s.length-1;
var k=s.substr(l,1);
for (i=0;i<l;i++)
{ c=s.charCodeAt(i)-k;
if(c<32){ c=127-(32-c);}
r+=String.fromCharCode(c);
}
return r;

[friz]

что-то такое:

Код:

//s-как я понял переменная подаваемая на вход функции
var i,l:integer;
     r,c,k:string;
begin
r:='';
l:=length(s)-1;
k:=copy(s,l,1);
for i:=0 to l do
begin
c:=StringToWideChar(s[i])-k;
if c<32 then c:=127-(32-c);
r:=r+WideCharToString(c)
end;
result:=r;