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;
