Delphi-string转pbyte的方法——Move函数！

var
???s:string;
???ps:Pchar;
???b:pbyte;
???len:integer;
begin
???s:=edit1.Text; //字符串
???ps:=pchar(s); //转成pchar类型,
???len:=length(s);//取字符串长度,占用多少字节
???getmem(b,len);//申请内存,pchar,pbyte在使用前都必须要申请内存,因为他们是指针.
???move(ps^,b^,len);//这里 ps^意思是pchar指向内存数据的第一个字节地址,B^是表示申请内存的第一个字节地址,这样就可以一个一个字节的移到b里去了.
???memo1.Text:=pchar(b);//显示.
???freemem(b);
end;
有些人遇到的困惑是为什么 move(s,b,len)不行呢?同样我也遇到这样的困惑.
看了一样move的函数源码才明白.
procedure???????Move( const Source; var Dest; count : Integer );
{$IFDEF PUREPASCAL}
var
??S,D: PChar;
??I: Integer;
begin
??S := PChar(@Source);//取内存地址
??D := PChar(@Dest);//取内存地址
??if S = D then Exit;
??if Cardinal(D) > Cardinal(S) then
????for I := count-1 downto 0 do
??????D[I] := S[I]
??else
????for I := 0 to count-1 do
??????D[I] := S[I];
end;
如果直接传入s,
?
S := PChar(@Source);//取内存地址
?就相当于取的字符串S地址的地址.
如果传入的是ps^
S := PChar(@Source);//取内存地址
?就相当于取pchar 所指向字符串实际数据的地址.本篇文章来源于：开发学院?http://edu.codepub.com???原文链接：http://edu.codepub.com/2010/0120/19934.php