如何实现块拷贝？

Question

move(souce, des, count);var
  souce, des: pointer;
begin
  getmem(souce, 255);
  getmem(des, 255);
  souce := 赋值
  move(souce^, des^, 255);
  freemem...
end;

Answer 1

move(souce^, Pointer(地址是什么)^, 255);即可
  

Answer 2

谢谢copy_paste(木石三)的帮助！我还想请教：如何把内存中的某段地址划分出来专供我使用，而不会被其他程序占用？

Answer 3

var
  S, D: Pointer;
begin
  S := $abc;
  D := $cba;
  move(S^, D^, 255);
end;
不知行不行，大概是这样吧。：)

Answer 4

从中我学到了不少知识，非常感谢copy_paste(木石三)！谢谢！！！