delphi 如何将‘AE FF CD’转换到16进制buffer中

Question

string ：= ‘AEFFCD’；（用string表示的16进制字符）
如何将AEFFCD放到16进制的buffer中呢？

Answer 1

var
  Buf : array [0..n] of Byte;PWord(@Buf[0])^ := StrToInt('$' + Copy(S , 1 , 4))
Buf[2] := StrToInt('$' + Copy(S , 5 , 2))
或者
Buf[0] := StrToInt('$' + Copy(S , 1 , 2))
Buf[1] := StrToInt('$' + Copy(S , 3 , 2))
Buf[2] := StrToInt('$' + Copy(S , 5 , 2))
如果字符串长也可以用循环.
如果较长,考虑用PInteger/PDWORD一次转8个字符到4个字节中