关于TRegistry WriteBinaryData的问题

Question

有一个文本文件中有这样一串字符串，11,00,10,11,fe,d0
请问怎么样用writebinarydata写到注册表中去，并且完成后，注册表中的二进制的值也应为11,00,10,11,fe,d0？

Answer 1

定义数组
var
bindata: array [0..5] of byte = ($11,$00,$10,$11,$FE,$D0);调用方法
procedure WriteBinaryData(const Name: string; var Buffer; BufSize: Integer);x.WriteBinaryData('keyname', bindata[0], Length(bindata));

Answer 2

参考:http://topic.csdn.net/u/20080214/22/43e0dd3d-2aed-45ba-b59c-21abbe8f5a16.html

Answer 3

问题是我怎么把字符串"11,00,10,11,fe,d0"变成array [0..5] of byte = ($11,$00,$10,$11,$FE,$D0); 这个呢？

Answer 4

var
  i: Integer;
  sl: TStringList;
  arraybytes: array of byte;
begin
  sl := TStringList.Create;
  try
    sl.DelimitedText := '11,00,10,11,fe,d0';
    SetLength(arraybytes, sl.Count);
    for i := 0 to sl.Count - 1 do
    begin
      arraybytes[i] := StrToInt('$' + sl.Strings[i]);
    end;
  finally
    sl.Free;
  end;
end;