救急!!!!php翻写delphi代码
在delphi中的一段代码现在要翻写成php的,请大侠帮忙看看,代码如下:function Decode:AnsiString;
var
I: LongInt;
begin
I := 157548;
SetLength(Result, 1);
Move(I, Result[1], Length(Result))
end;
其中的:
SetLength(Result, 1);
Move(I, Result[1], Length(Result))
用php该如何写?
在delphi中的一段代码现在要翻写成php的,请大侠帮忙看看,代码如下:function Decode:AnsiString;
var
I: LongInt;
begin
I := 157548;
SetLength(Result, 1);
Move(I, Result[1], Length(Result))
end;
其中的:
SetLength(Result, 1);
Move(I, Result[1], Length(Result))
用php该如何写?
解决方案 »
- table翻页问题
- smarty 缓存控制问题 register_function
- 谁有php读取189信箱通讯簿的代码共享一下
- 关于PHP 的extends 使用中的问题!很郁闷!大侠门进来帮忙看看!
- mysql where in array()
- PHP class construct 怎么写?
- imagecreatefromjpeg这个函数是怎样用的阿?
- php调用java问题请教
- 帮我解决一个难题,php兼容问题,很着急!
- 请教各位一个问题,关于"网上购物"的
- 求一个Php+mysql分页类及调用方法,,,最好也能将PHP+access版本的也给一个分页类,,,普通的俺有了,,谢谢大家了
- smarty如何实现循环显示效果?
Move(I, Result[1], Length(Result)) 那么你说他在做什么?
相当于设置一个长度为1的Result数组
Move(I, Result[1], Length(Result))
是块拷贝,把I也就是157548当成ascii码串,转换为字符串后,截取一位给Result
把157548(也就是说任意一个大的整数)这个值当做ascii码串,转换为字符串该怎么做?
谢谢“xuzuning ”关心我的话题,感谢!!!
请继续帮助。
//字符串转化为ascii
function str2asc($str)
{
$num='';
while(strlen($str)!=0)
{
$a=substr($str,0,1);
$num.=ord($a);
$str=substr($str,1,strlen($str));
}
return $num;
}//ascii转化为字符串
function asc2str($num)
{
$num=(string)$num;
$str='';
while(strlen($num)!=0)
{
$a=(int)substr($num,0,1);
if($a>2)
{
$b=(int)substr($num,0,2);
$num=substr($num,2,strlen($num));
}else
{
$b=(int)substr($num,0,3);
$num=substr($num,3,strlen($num));
}
$str.=chr($b);
}
return $str;
}示例:
echo str2asc('sfdsl');
echo '<br>';
echo asc2str(str2asc('sfdsl'));
---------------------
115102100115108
sfdsl
也就是要将123456转化为字符串