Unicode символ в строку

[Byblick32]

Доброй ночи.
Необходимо переписать JavaScript функцию в Delphi.

<script type="text/javascript">var _y8M=''; function _dS(s){ 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;} _y8M=_dS('>kprwv"v{rg?$jkffgp$"pcog?$uqu$"xcnwg?$4447;:7689$"1@2');</script>

Кратко расскажу что она делает:
Кодированием/раскодированием символов из строки >kprwv"v{rg?$jkffgp$"pcog?$uqu$"xcn wg?$4447;:7689$"1@2 преобразует ее в нечто человекопонятное, типа <input type="hidden" name="sos" value="2225985467" />

Преобразовывая функцию на язык делфи пришол в некий тупик=)

procedure TForm1.Button1Click(Sender: TObject);
var s:String;
    i,l,k:integer;
    w:word;

begin
s:='>kprwv"v{rg?$jkffgp$"pcog?$uqu$"xcnwg?$4447;:7689$"1@2';
l:=Length(S);
k:=StrToInt(Copy(s, l, 1));

for i:=0 to l-1 do
begin
w:= short(wideChar(s[i+1]))-k; //Получаем код символа в Unicode; в JS это c=s.charCodeAt(i)-k;
if w<32 then w:=127-(32-w); //из JS  if(c<32){ c=127-(32-c) 

Теперь мне надо число из переменной w, оно же символ Unicode, перевести в строку.

Может быть есть какая-то процедура/функция? Пока ничего не нагуглил, только перевод WideChar в String, но ведь у меня не WideChar =(

[r9m]

IntToStr ?

[GBAXA]

Сообщение от Byblick32

Доброй ночи.
Необходимо переписать JavaScript функцию в Delphi.

<script type="text/javascript">var _y8M=''; function _dS(s){ 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;} _y8M=_dS('>kprwv"v{rg?$jkffgp$"pcog?$uqu$"xcnwg?$4447;:7689$"1@2');</script>

Кратко расскажу что она делает:
Кодированием/раскодированием символов из строки >kprwv"v{rg?$jkffgp$"pcog?$uqu$"xcn wg?$4447;:7689$"1@2 преобразует ее в нечто человекопонятное, типа <input type="hidden" name="sos" value="2225985467" />

Преобразовывая функцию на язык делфи пришол в некий тупик=)

procedure TForm1.Button1Click(Sender: TObject);
var s:String;
    i,l,k:integer;
    w:word;

begin
s:='>kprwv"v{rg?$jkffgp$"pcog?$uqu$"xcnwg?$4447;:7689$"1@2';
l:=Length(S);
k:=StrToInt(Copy(s, l, 1));

for i:=0 to l-1 do
begin
w:= short(wideChar(s[i+1]))-k; //Получаем код символа в Unicode; в JS это c=s.charCodeAt(i)-k;
if w<32 then w:=127-(32-w); //из JS  if(c<32){ c=127-(32-c) 

Теперь мне надо число из переменной w, оно же символ Unicode, перевести в строку.

Может быть есть какая-то процедура/функция? Пока ничего не нагуглил, только перевод WideChar в String, но ведь у меня не WideChar =(

Сначала переводи в wideCHAR:

wch :=WideChar(w);

a потом в String.

Str := String(wch);

Сообщение от r9m

IntToStr ?

IntToStr засунет в строку число а не символ по коду.

[r9m]

a потом в String.
Код:

Str := String(wch);

Типы и так совместимы вроде

IntToStr засунет в строку число а не символ по коду.

Ох, ну спасибо :D Вот я деревня, да? Как он написал, так я и понял. Цитирую:

Теперь мне надо число из переменной w, оно же символ Unicode, перевести в строку.

Я бы понял, если б нормално написал, типа : нужно перевести число в ASCII-символ.

[GBAXA]

Сообщение от r9m

Типы и так совместимы вроде

точно чтото я затупил

[Byblick32]

Спасибо, щас попробую.

Я бы понял, если б нормално написал, типа : нужно перевести число в ASCII-символ.

Ну прост хз как сформулировать), GBAXA вроде понял)

procedure TForm1.Button1Click(Sender: TObject);
var s,m:String;
    i,l,k:integer;
    w:word;
     wch:WideChar;
begin
s:='>kprwv"v{rg?$jkffgp$"pcog?$uqu$"xcnwg?$4447;:7689$"1@2';
l:=Length(S);
k:=StrToInt(Copy(s, l, 1));

for i:=0 to l-1 do
begin
w:= short(wideChar(s[i+1]))-k;
if w<32 then w:=127-(32-w);
wch :=WideChar(w);
m:=string(wch);
Edit1.Text:=Edit1.Text+m

end;

end;

Всё ок, всем спасибо. С меня + в реп

[psycho-coder]

Чем Utf8ToAnsi не устроила?