перевод script в delphi
доброе время суток, могли бы вы мне подсказать как можно перевести 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;
|