手机站
网通分站
电信主站
密 码:
用户名:
当前位置 : 主页>程序设计>delphi>列表

如何将integer串转化成byte数组

来源:互联网 作者:西部数码 时间:2008-04-09
西部数码-全国虚拟主机10强!40余项虚拟主机管理功能,全国领先!双线多线虚拟主机南北访问畅通无阻!免费赠送企业邮局,.CN域名,自助建站480元起,免费试用7天,满意再付款! P4主机租用799元/月.月付免压金!

How to Convert a String of Integers into an Array of Byte
如何将integer串转化成byte数组

The best solution is to dynamically create an array of byte that has length equal to that of the string. Once you have your array you can fill the array with the values from the string, however there is some offset since the ascii representation of the character ''''1'''' isn''''t equivalent to 1.
最好的解决方案是动态的创建一个与这个串长度相同的byte数组。一旦您得到了数组您就可以用串中的值填充数组,但是因为ASC字符''''1''''并不与1相等,所以有一个偏移量。
Below is a sample of how one might return an array of byte:
下面是一个如何返回byte数组的例子:

~~~~~~~~~~~~~~~~~~~~~~~~~
interface
uses
...
type
dynamic array type for Array of Byte
TByteArr = array of byte;

...
implementation

function ArrOfByte(AStr: String): TByteArr;
var
j: integer;
begin
SetLength( Result, Length(AStr)) ;
for j := 0 to Length(AStr) - 1 do
Result[j] := ord(AStr[j 1]) - 48;
end;

文章整理:西部数码--专业提供域名注册虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!