delphi中move函数的正确理解(const和var一样,都是传地址,所以Move是传地址,而恰恰不是传值)太精彩了 good
我们能看到以下代码
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是传地址,而恰恰不是传值!
通过一段时间的学习,上面的理解是不全对的。 其实Const 关键词修饰的 Source是传值还是传地址,要看Const修饰的参数类型。如果参数是简单类型,那还是传值,如果修饰的参数不是简单类型,而是字符串(不包括短字符串),传的是地址,是实在参数的内存地址,即使没有任何关键字修饰,如 Procedure ProcA(s:string),也是传的是实参的地址,通过引用计数实现,只要在改写S的值,才写复制。 Var关键词修饰的变量肯定是传地址。对于Delphi中数据类型,我们知道声明一个变量分为两部分:”变量自身“和”变量的内存占用“。对于简单类型的变量,变量本身存储的就是变量值;而对于复杂类型(构造类型或字符串类型),则”变量自身“仅仅存放”变量的内存占用“的指针,而”变量的内存占用“有自己的存储空间,有地址值。就是说,复杂类型的”变量自身“存放的是实际数据所在地址的指针,一个4字节大小的整数值。
Var
I:integer;
s:string;
begin
I:=1;// 在内存中I的地址里面的值就是 1,即变量本身存储的就是变量值;
s:='HELLO,WORLD!'; // 变量本身 存放的是 ‘HELLO,WORLD!’在内存中存放的地址值,其实是其首地址。
end;
我们再来看 Move 函数的声明:
procedure Move( const Source; var Dest; count : Integer );
其内部实现代码:
procedure Move( const Source; var Dest; count : Integer );
var
S, D: PChar;
I: Integer;
begin
S := PChar(@Source);//取的是 Source变量的地址
D := PChar(@Dest); //取的是 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;
现在明白为什么 Move(pSource,pDest,len); 是错误的 ,而 Move(pSource^,pDest^,len); 是正确的?尽管 pSource,pDest 声明都是PChar类型,是一个指向字符串的以NULL为字符串的指针类型的指针变量。如果Move(pSource,pDest,len)这样写,在Move的实现代码中(@pSource)取的是指针本身的地址,而不是指针指向数据的地址。注意是指针本身地址而不是数据存储的地址 ,如果这样,显然是不能实现数据移动的,拿一个指针的地址,是取不到值的;而Move(pSource^,pDest^,len); 正确,是传给函数 PChar变量的指向的地址值。pSource^,指示的是指向的实际的数据的地址。(@取出变量地址运算符);pDest^,指向目的内存地址,Move 函数,就知道要从哪个地址开始,移动多少字节的数据到目的地址空间了,不看Move 函数的内部实现,还真不好理解其实现过程。
通过上面的分析,我们现在回过头来,再看看Move过程的声明,procedure Move( const Source; var Dest; count : Integer ); const 修饰的变量,传的实参的地址值,之所以使用Const 修饰,是不允许函数内部,修改源内存地址,即不能将Source指向别的地址,Source的值是指向pSource^,是pSource^值的拷贝。
Souce是一个内存首地址,这个内存首地址,当然是一个值,而不是实参数的地址。它传的还是值,这个值是变量指向的实际数据所在内存地址。Const 和 Var 根本就不是一样的。对于Const 修饰指针时,理解要特别注意。可以参考 http://rainux.org/delphi 和 http://www.cnblogs.com/sonicit/archive/2008/03/23/1118524.html ,里面讲的很详细。
总结:按值传递一个指针类型的参数,并且用Const 修饰。情况会变得复杂而又很有意思,实际传递的是指针的拷贝,形参和实参是两个指针。不过这两个指针指向了相同的地址。它们可以共享指针向地址中的数据,但是不能共享指针本身的指向。而引用传递的,形参和实参是同一个变量。因而完全共享。 Source and Dest都是指向一个首地址,但是不能说 Const 修饰的参数是按地址传递,这是概念的错误。
看下面的例子:
注意区别:
procedure TForm1.ByConstVal(const obj:TEdit)
begin
obj.Text:='Hello World!';// 正确 修改 Obj的属性 ;
obj:=Form1;// 错误,不能将它指向其它的对象;不能修改指针本身的指向,可以修改指向对象的数据,包括属性等;
end;
procedure TForm1.ByVal(obj:TEdit)
begin
obj.Text:='Hello World!';// 正确 修改 Obj的属性 ;
obj:=Form1;// 正确,这个时候Obj指向了其它对象,而不是传入的对象,它的指向发送了变化,不影响外面实参的指向;
end;
procedure TForm1.ByRef(obj:TEdit)
begin
obj.Text:='Hello World!';// 正确 修改 Obj的属性 ;
obj:=Form1;// 正确,这个时候Obj指向了其它对象,而不是传入的对象,它的指向发送了变化,影响了外面实参的指向,外面实参也指向了Form1对象;
end;
其它一些参考例子:
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
感悟:学习Delphi入门很容易,但是深入其中,需要一个过程。不过在学习的过程中注意这些细节,彻底搞清楚,在实际开发中,就事半功倍。
http://blog.csdn.net/tjb_1216/article/details/4627346
delphi中move函数的正确理解(const和var一样,都是传地址,所以Move是传地址,而恰恰不是传值)太精彩了 good的更多相关文章
- Delphi中的函数指针判断是否为空
delphi函数指针 只有@@p才代表了函数指针本身的地址 assigned(p) 判断是否为空 或者用 @p=nil 来判断函数指针是不是为空 Delphi中的函数指针实际上就是指针,只是在使用 ...
- Delphi中 StrToIntDef函数的用法
Delphi中 StrToIntDef函数的用法:比如我要判断一个文本框里输入的字符串能不能转换为integer类型,如果能,则返回转换后的整型数据,如果不能,则返回整数0,那么我就可以用strtoi ...
- NET MVC全局异常处理(一) 【转载】网站遭遇DDoS攻击怎么办 使用 HttpRequester 更方便的发起 HTTP 请求 C#文件流。 Url的Base64编码以及解码 C#计算字符串长度,汉字算两个字符 2019周笔记(2.18-2.23) Mysql语句中当前时间不能直接使用C#中的Date.Now传输 Mysql中Count函数的正确使用
NET MVC全局异常处理(一) 目录 .NET MVC全局异常处理 IIS配置 静态错误页配置 .NET错误页配置 程序设置 全局异常配置 .NET MVC全局异常处理 一直知道有.NET有相关 ...
- Excel中MATCH函数的正确使用
Excel中MATCH函数是一个很强大的辅助函数, MATCH函数语法为:MATCH(lookup_value,lookuparray,match-type) lookup_value:表示查询的指定 ...
- 在Delphi中使用C++对象(两种方法,但都要改造C++提供的DLL)
Delphi是市场上最好的RAD工具,但是现在C++占据着主导地位,有时针对一个问题很难找到Delphi或Pascal的解决方案.可是却可能找到了一个相关的C++类.本文描述几种在Delphi代码中使 ...
- delphi 中OutputDebugString 函数的妙用(使用DebugView或者Pascal Analyzer软件,在运行过程中就能监视和捕捉日志,而且通过网络就能监视)
原文地址 https://www.peganza.com/delphi-and-outputdebugstring.html 曾经想要实时监控您的Delphi应用程序,并能够查看日志消息吗?当然,您始 ...
- MATLAB中fft函数的正确使用方法
问题来源:在阅读莱昂斯的<数字信号处理>第三章离散傅里叶变换时,试图验证实数偶对称信号的傅里叶变换实部为偶对称的且虚部为零.验证失败.验证信号为矩形信号,结果显示虚部是不为零且最大幅值等于 ...
- python中对 函数 闭包 的理解
最近学到 函数 闭包的时候,似懂非懂.迷迷糊糊的样子,很是头疼,今天就特意查了下关于闭包的知识,现将我自己的理解分享如下! 一.python 闭包定义 首先,关于闭包,百度百科是这样解释的: 闭包是指 ...
- Delphi中文件名函数-路径、名称、子目录、驱动器、扩展名
文件名函数 文件名函数可以对文件的名称.所在子目录.驱动器和扩展名等进行操作.下表列出这些函数及其功能. 函数说明 ExpandFileName() //返回文件的全路径(含驱动器.路径) Extra ...
随机推荐
- CentOS 挂载iso文件配置yum源
1.挂载iso 准备好centos的光盘镜像 挂载前的准备; mkdir -p /dev/centos mkdir -p /mnt/local_yum 挂载 mount -o loop /opt/s ...
- python生成测试图片
直接代码 import cv2.cv as cv saveImagePath = 'E:/ScreenTestImages/' colorRed = [0,0,255] colorGreen = [0 ...
- mongoDB 入门手册
MongoDB - 简介 官网:https://www.mongodb.com/ MongoDB 是一个基于分布式文件存储的数据库,由 C++ 语言编写,旨在为 WEB 应用提供可扩展的高性能数据存储 ...
- Python经常使用内置函数介绍【filter,map,reduce,apply,zip】
Python是一门非常简洁,非常优雅的语言,其非常多内置函数结合起来使用,能够使用非常少的代码来实现非常多复杂的功能,假设相同的功能要让C/C++/Java来实现的话,可能会头大,事实上Python是 ...
- 实用WordPress后台MySQL操作命令
关键字: WordPress MySQL 后台 数据库 地址:http://www.cnblogs.com/txw1958/archive/2013/01/06/wordpress-sql.html ...
- Qt 绘制平滑曲线
本文介绍在 Qt 中绘制平滑曲线的实现,调用下面的函数 SmoothCurveGenerator::generateSmoothCurve(points) 即可.默认曲线的 2 个顶点之间被分割为 1 ...
- 上传图片时,使用GDI+中重绘方式将CMYK图片转为RGB图片
原文:上传图片时,使用GDI+中重绘方式将CMYK图片转为RGB图片 我们知道,如果网站上传图片时,如果用户上传的是CMYK图片,那么在网站上将是无法显示的,通常的现象是出现一个红叉.下面使用将Ima ...
- WPF中的3D特性和常见的几个类
原文:WPF中的3D特性和常见的几个类 WPF 3D 常用的几个类及其关系 1. Visual 类 所有二维可视化元素的基类,为 WPF 中的呈现提供支持,其中包括命中测试.坐标转换和边界 ...
- Windows,linux下编译qt源码(比较简单)
一.linux下静态编译qt源码 1.取到qt源码并解压到文件夹 2.cd到qt目录下 3.使用configure生成makefile ./configure–prefix /opt/qtstatic ...
- eclise配置tomcat出现服务Tomcat version 6.0 only supports J2EE 1.2, 1.3, 1.4 and Java EE 5 Web modules
当部署项目Tomcat version 6.0 only supports J2EE 1.2, 1.3, 1.4, 1.5 and Java EE 5 Web modules错;解决方案,如下面: 空 ...