|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
перевод 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; |
#2
|
||||
|
||||
что-то такое:
Код:
//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; Последний раз редактировалось Admin, Сегодня в 10:32. |