一、Move操作
<1>
var pSource,pDest:PChar;
len: integer;
.......................//一些代码
Move(pSource,pDest,len); //错误
Move(pSource^,pDest^,len); //正确，根据Move函数： S := PChar(@Source);也可以这样
<2>
var
a1,a2:array of char;
......
SetLength(a1,len);
SetLength(a2,len);
Move(a1,a2.len);
//不过总是出现内存错误，应该不是这个缘故。
//////////////////////////////////////////////
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} //Source和Dest都是传地址！！！
var //Move(参数类型对！用法对)
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 所指向字符串实际数据的地址.
二、
string转化为PChar或数组：
function StrPCopy(Dest: PChar; const Source: string):
PChar;
//拷贝一个 Pascal 类型字符串到一个零终止字符串, 在 32 位 Delphi 中这种类型转换是自动进行的
PChar或数组转化为string：
function StrPas(const Str: PChar): string;
//将零终止字符串转换为 Pascal 类型字符串，在 32 位 Delphi 中这种类型转换是自动进行的
三、SetLength：string或动态数组
原文：http://www.cnblogs.com/760044827qq/p/3768757.html