delphi Move操作

最新推荐文章于 2021-02-11 15:07:57 发布

转载最新推荐文章于 2021-02-11 15:07:57 发布 · 866 阅读

本文详细介绍了在Pascal中如何将字符串转换为Pchar类型，并通过指针操作进行内存复制的过程。解释了为何直接使用move函数在某些情况下会失败，并提供了正确的内存管理和释放方法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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地址的地址.