Delphi

本类阅读TOP10

·分布式网络考试系统原型分析及实现
·游戏外挂设计技术探讨①
·使用HOOK随心监视Windows
·Delphi 水晶报表打包解决
·试题库开发中非文本数据的处理
·如何将几个DBGRID里的内容导入同一个EXCEL表中....的问题
·如何使用Delphi设计强大的服务器程序
·工人线程中关闭窗体的实现
·用DLL方式封装MDI子窗体。
·支持XP下托盘栏气球提示的托盘单元

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
如何将integer串转化成byte数组

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

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;

 




相关文章

相关软件