魔卡幻想钻石巨石像:关于delphi Move函数的用法

来源：百度文库编辑：偶看新闻时间：2024/04/30 04:10:56

使用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 所指向字符串实际数据的地址.

关于IF函数的用法关于DELPHI调用存储过程的用法？？ RegEnumValue 的 Delphi 用法 c语言关于函数的用法 Delphi的常用函数 delphi中goto的用法 delphi 中的 sendmessage 的用法 socket函数的用法函数 reshape 的用法 round函数的用法函数restorecrtmode()的用法？请问一下ASP中SQL语句的RS.Move用法??? 关于EXCEL乘积函数的用法,高手指点下磕头了!!关于move maker的问题? DELPHI 中 BAIDU控件的用法 delphi的高手们 Delphi的window API函数是什么？ split的函数的用法？谁知道随机函数的用法? document.write函数的用法? main()函数的特殊用法 SUBTOTAL 函数的正确用法 delphi有谁知道里面的函数啊 Delphi中提取系统时间的函数关于Delphi的