var pbyt,plongw:pchar; len:integer; //......其他定义 begin pbyt:=pointer(@bytenum[0]); len:=length(bytenum); //plongw:=pointer(@longwordnum[0]); setlength(longwordnum,(len div 4)); move(pbyt^,plongw^,len); end;
发表于:2007-10-25 17:58:264楼 得分:0
应该这样:
delphi(pascal) code
var
pbyt,plongw:pchar;
len:integer;
//......其他定义
begin
pbyt:=pointer(@bytenum[0]);
len:=length(bytenum);
setlength(longwordnum,(len div4));
plongw:=pointer(@longwordnum[0]);
move(pbyt^,plongw^,len);
end;