字符串赋值给byte数组如何操作的

字符串赋值给byte数组怎么操作的
有个字符串
s:string;
 S：=‘abcd’;
 p：array[0..63] of byte;

我想要赋值给 p[8],p[9],p[10],p[11] 怎么操作呢?



[解决办法]
p[8] := Ord(s[1]);
p[9] := Ord(s[2]);
p[10] := Ord(s[3]);
p[11] := Ord(s[4]);
或者
move(s[1], p[8], 4);
[解决办法]

探讨

p[8] := Ord(s[1]);
p[9] := Ord(s[2]);
p[10] := Ord(s[3]);
p[11] := Ord(s[4]);
或者
move(s[1], p[8], 4);

[解决办法]
p[8] := Ord(s[1]);
p[9] := Ord(s[2]);
p[10] := Ord(s[3]);
p[11] := Ord(s[4]);