有关DWord类型，小弟不才啊

Question

这是样的， 我在用一个加密算算。 但这个算法的key需要的是 array [0..7] of DWORD 的数组。 我想用一个字符串当做key， 可是不知道怎么才能把这个字符串转换成array [0..7] of DWORD这个东西。  不过我可以这样写，
    key[0] := $5E99C200;
    key[1] := $FFCFBE52;
    key[2] := $5E99C200;
    key[3] := $5E99C200;
    key[4] := $5E99C200;
    key[5] := $5E99C200;
    key[6] := $5E99C200;
    key[7] := $5E99C200;
但我怎么能把一个字符串转成key数组的形式呢。 高手别笑我，谢谢你们

Answer 1

可以用　Key[0] := MakeWord(str[1], str[2])；试试

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
  i:integer;
  key: array [0..100] of DWORD ;
begin
 s:='abcaaaaaa';for i:=1 to length(s) do
  key[i]:=ord(s[i]);
end;

Answer 3

能不能告诉我ord方法的意思？

Answer 4

ord 就是把 char类型转换为integer类型（根据ASCII表）

Answer 5

可以用类似下面的做法..type
   ArrayDWord=array[0..100] of DWORD;
   PArrayDWord=^ArrayDWord;procedure TForm1.Button1Click(Sender: TObject);
var
  P:PArrayDWord;
  s:string;
begin
  s:=#1#0#0#0#2#0#0#0;// 1,2
  p:=PArrayDWord(s);
  ShowMessage(INtToStr(p^[0]));
  ShowMessage(intToStr(p^[1]));end;