我这有段代码,能给解释下吗?setlength(xm,20); for i:=0 to Length(edit_xm.Text) do xm[i]:=DWORD(edit_xm.Text[i+1]); ret_xm:=pbyte(xm);
我这有段代码,能给解释下吗?Delphi(Pascal) code setlength(xm,20); for i:=0 to Length(edit_xm.Text) do xm[i]:=DWORD(edit_xm.Text[i+1]); ret_xm:=pbyte(xm);
setlength(xm,20); {xm是动态的DWORD数组,这里设置长度20,相当于xm:array [0..19] of DWORD} for i:=0 to Length(edit_xm.Text) do {循环edit_xm中的字符串,如:你输入的是12345,就会从1到5逐个循环} xm[i]:=DWORD(edit_xm.Text[i+1]); {取单个字符,注意i是从0开始,所以要+1,即第1次循环edit_xm.Text[1]就是'1', 然后强制转换成DWORD类型,再赋值给数组;xm[0]就是'1' ,当然如果你输入其它的文字时,转换可能会报错} ret_xm:=pbyte(xm);{ret_xm是什么类型,是pchar吧,那就是保存数组的头指针了}解释的有不对的地方.请楼下的纠正
for i:=0 to Length(edit_xm.Text) do
xm[i]:=DWORD(edit_xm.Text[i+1]);
ret_xm:=pbyte(xm);
{xm是动态的DWORD数组,这里设置长度20,相当于xm:array [0..19] of DWORD}
for i:=0 to Length(edit_xm.Text) do
{循环edit_xm中的字符串,如:你输入的是12345,就会从1到5逐个循环}
xm[i]:=DWORD(edit_xm.Text[i+1]);
{取单个字符,注意i是从0开始,所以要+1,即第1次循环edit_xm.Text[1]就是'1',
然后强制转换成DWORD类型,再赋值给数组;xm[0]就是'1' ,当然如果你输入其它的文字时,转换可能会报错}
ret_xm:=pbyte(xm);{ret_xm是什么类型,是pchar吧,那就是保存数组的头指针了}解释的有不对的地方.请楼下的纠正