我们能看到以下代码
var pSource,pDest:PChar;
len: integer;
.......................//一些代码
Move(pSource,pDest,len); //错误
Move(pSource^,pDest^,len); //正确
看起来确实好像是传值,而不是传地址,但是各位别忘了,这不是C,C++,而是Delphi
Object Pascal,所以,绝不能从函数调用的方法判断是传值还是串地址!!必须看函数的
定义,只有定义才能说明是传值还是传地址,再说一遍,这不是C,C++!!
我们看到的函数定义是这样的
procedure Move(const Source; var Dest; Count: Integer);
从定义上看,很清楚,Dest是传地址,而不是传值,那么Source呢,其实大家不太清楚
这里的Const修饰符有两个含义,第一个大家都知道就是Source一常量方式在函数体内,
不可以改变它的值,第二个可能知道的人不多,那就是Source的传递方式和Dest一样,
是传地址!也就是说const和var一样,都是传地址,只不过一个在函数内不允许修改,
另一个是修改后影响调用的变量值
所以Move是传地址,而恰恰不是传值!
Move(const Source; var Dest; Count: Integer);
Source and Dest都是指向一个首地址,
如
var 首地址
P: Pointer; P^
P: PChar P^
//只要是指针类型就是 P^
S: string S[1];
Arr: array [0..10] of Char; Arr[0] or Arr
Arr: array [0..10] of TDataRecord Arr[0] or Arr
//只要是array 类型就是 Arr[0] or Arr
明白首地址后,就很容易明白C 的memcpy和Delphi的Move ,或API的MoveMemory/CopyMemory,就是内存
的相互Copy,只要给出首地址就行了。
当然在数组中首地址也可以不是0开头,有时我们对一个record or array进行赋值时,是一个个域进行
赋值,如下:
type
TArrChar: array [0..3] of Char;
procedure SetValue(Arr: TArrChar);
var
Chars: array of Char;
begin
SetLength(Chars, 4);
Chars[0] := Arr[0];
...
end;
我们可以如此:
procedure SetValue(Arr: TArrChar);
var
Chars: array of Char;
begin
SetLength(Chars, 4);
Move(Arr, Chars, SizeOf(Char) * 4);
end;
record类型也可以这样,不过要注意对string/array类型进行静态分配空间; 如
S: string[255];
Arr: array [0..len] of TMyType