如何将integer串转化成byte数组

王朝delphi·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

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;

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有  導航