跪求一段Javascript转换成Delphi的函数

[icedsoul]

请各位大侠援手，谢谢~~~~

function binl2str(bin)
{
var str = "";
var mask = (1 << chrsz) - 1;
for(var i = 0; i < bin.length * 32; i += chrsz)
str += String.fromCharCode((bin[i>>5] >>> (i % 32)) & mask);
return str;
}

http://bbs.2ccc.com/topic.asp?topicid=329434

[bdmh]

仅供参考，不知道你的chrsz是什么，暂定一个integer变量，调试一下吧，用string还是widestring

var
  str:string;
  mask,chrsz,i,j:Integer;
begin
  str := '';
  j := 0;
  mask := (1 shl chrsz) - 1;
  for i := 0 to Length(bin)-1 do
  begin
    str := str + Chr(Ord(bin[j shr 5]) shr (j mod 32) and mask);
    j := j+chrsz;
  end;
  Result := str;
end;