System单元的move过程用来把指定内存段的数据整块复制到另一内存段中，它通常用来成批移动数组元素，使用move进行移动，往往比For一遍来得快些（个人感觉）Move的格式是 move(var Source, Dest; Count: Word)，Source是数据源，Dest是目标内存段，Count是复制的字节数。你不必担心源内存段会和目标内存段重叠或者重合，在这种情况下move仍然能够正确工作，参考下面的样例：
非常感谢AI_Player介绍这种方法，copymem movemem在C语言中非常常见，其实其在Pascal中也很好用
var:
I: Integer;
P: array[0..9] of Longint;
begin
for I := 0 to 9 do P[I] := I;
move(P[4], P[2], 4 * 6); ‘从P[2]移6个longint 到P[4]
for I := 0 to 9 do Writeln(P[I]: 4);
0123456789
0145678989
值得注意的是Count的大小，这与identifier的类型(所占字节数)有关，以下给出参考
|
byte,shortint |
1 |
|
word,integer |
2 |
|
longint |
4 |
|
|
|
|
single |
4 |
|
real |
6 |
|
double,comp |
8 |
|
extended |
10 |
|
|
|
|
char |
1 |
|
boolean |
1 |
|
string |
1(per char)* |
\n
\n
*例 Var a:string ''a:=''12345''; move(a[4],a[1],2); a="45345"
\n
另外，所占字节数不同不能move(不是数组，Count选字节数大的，有时也是可以的)，不同类型不能move，否则会搞得乱七八糟，而往往因move错误地使用造成的 答案错误、死循环 很难发现！
看到你这里来了……
还真是..感谢….
多谢楼主指点