操作内存的一些函数

1.CopyMemory

CopyMemory()

函数功能描述:将一块内存的数据从一个位置复制到另一个位置

Delphi 函数原型 procedure CopyMemory(Destination: Pointer; Source: Pointer; Length: DWORD);

C++ 函数原型

VOID CopyMemory(

PVOID Destination,

CONST VOID *Source,

DWORD Length

);

参数

Destination

要复制内存块的目的地址。

Source

要复制内存块的源地址。

Length

指定要复制内存块的大小，单位为字节

返回值

该函数为VOID型，没有返回值。

备注

如果目的块与源块有交叠，结果是不可预料的，使用MoveMemory可以解决这个问题。

2.MoveMemory

使用MoveMemory复制数据
procedure MoveMemory(Destination: Pointer; Source: Pointer; Length: DWORD);
MoveMemory参数意义:(1)Destination:目的数据的地址；(2)Source:来源数据的
地址;(3)Length:数据的字节数

var Rect1,Rect2:TRect;
begin
  Rect1.Left:=10;
  Rect1.Top:=10;
  Rect1.Bottom:=200;
  Rect1.Right:=200;

  Rect2.Left:=50;
  Rect2.top:=100;
  Rect2.Bottom:=400;
  Rect2.Right:=390;
  form1.Canvas.FillRect(Rect1);
  showmessage('movemory!');
  form1.Refresh;

  windows.MoveMemory(@rect1,@rect2,sizeof(TRect));
  form1.Canvas.FillRect(rect1);
end;
结果把rect2的值赋到rect1中

移动数组的值
一般的办法:

var s1,s2:array[0..4] of integer;
    i:integer;
begin
  s1[0]:=1;
  s1[1]:=2;
  s1[2]:=3;
  s1[3]:=4;
  s1[4]:=5;

  s2[0]:=6;
  s2[1]:=7;
  s2[2]:=8;
  s2[3]:=9;
  s2[4]:=0;
  for a:=0 to 4 do s1[a]:=s2[a];
end;

用movemeory的办法:

var s1,s2:array[0..4] of integer;
    i:integer;
begin
  s1[0]:=1;
  s1[1]:=2;
  s1[2]:=3;
  s1[3]:=4;
  s1[4]:=5;

  s2[0]:=6;
  s2[1]:=7;
  s2[2]:=8;
  s2[3]:=9;
  s2[4]:=0;
  for i:=0 to 4 do showmessage('s1的'+inttostr(i)+':'+inttostr(s1[i]));
  showmessage('movemeory1!');
  windows.MoveMemory(@s1,@s2,sizeof(s1));

  for i:=0 to 4 do showmessage('s1的'+inttostr(i)+':'+inttostr(s1[i]));
end;

 

procedure FillMemory(Destination: Pointer; Length: DWORD; Fill: Byte);
{$EXTERNALSYM FillMemory}
procedure ZeroMemory(Destination: Pointer; Length: DWORD);
{$EXTERNALSYM ZeroMemory}

procedure       Move( const Source; var Dest; count : Integer );