将字符串存入byte数组

[sandy8508]

str:string;

str:='3B430E81';
buf:array[0..3] of byte;

请问，要实现：
buf[0]:=$3B;
buf[1]:=$43;
buf[2]:=$0E;
buf[3]:=$81;

用delphi语句怎么实现？最好给出代码，谢谢！

[sololie]

var
  str: AnsiString;
  buf: array[0..3] of byte;
  i: Integer;
begin
  str := '3B430E81';
  for i := Low(buf) to High(buf) do
  begin
    buf[i] := StrToInt('$' + Copy(str, 1, (i + 1) * 2));
    ShowMessage(IntToHex(buf[i], 2));
  end;
end;