Converter uma String de inteiros em um Array de byte
A melhor solução é criar dinamicamente um array de byte que possua o mesmo tamanho da string. Uma vez que você tenha o array você pode preenchê-lo com os valores da string, no entanto precisamos atentar que a representação ascii do caractere ‘1’ não é equivalente a 1. Abaixo está um exemplo de como criar um array de 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;
