字符串赋值给字节数组

方法一

//字符串转16进制
function StrToHex(src: string): string;
var
  i: integer;
  des: string;
begin
  des := '';
  for i := 1 to Length(src) do
  begin
    des := des + IntToHex(Ord(src[i]), 2) + '';
  end;
  Result := des;
end;
使用代码：
    keys := 'dLN5WV3y*****1WW';
    klong:= length(keys);
    SetLength(Key1, klong);
    keys := StrToHex(keys);
  for i := 0 to klong-1 do
  begin
    Key[i] := StrToIntDef('$' + MidStr(keys, i * 2 + 1, 2), 0);
  end;
//赋值完成

方法二（推荐）

    keys := 'dLN5*****u3A1WW';
    key1:=TEncoding.Default.GetBytes(keys);//就这一个函数就解决了，还搞了半天
  //赋值完成