Delphi/FreePascal用指针访问数组的异同

原作者: [db:作者] 来自: [db:来源] 收藏邀请

前一段业余移植一个C写的 Total Commander 插件到 Double Commander, 后者是用FreePascal写的，虽然也可以直接用C来做这个插件，但俺还是有兴趣用freepascal重写一遍。最开始是用Lazarus 做IDE来写，为偷懒基本上是C函数到pascal函数来移，结构打算后面再调整，但移植完两个函数后调测时觉得Lazarus 这个IDE的调试功能实在太差，于是又改到先用Delphi 7来编译，于是发现了这两者在数组、指针方面的一些差异。刚才在Delphi 7, Delphi 2009和Freepascal 2.2.4上做了一下对比，结果如下:

Delphi 7

    procedure TestIntArray;
    var
      arr : array[0..10] of integer;
      p : PInteger;
      i : integer;
      s: string;
    begin
      for i:=0 to Length(arr)-1 do
        arr[i] := i + 1000;
    
    //  p := arr;  //error: Incompatible types: 'Array' and 'PInteger'
      p := @arr;
      Writeln(IntToStr(p^));
      p := @arr[0]; //the same effect with above line?
      Writeln(IntToStr(p^));
    
    //  Writeln(IntToStr(p[2]));     //error: Array type required
    
    //  p := p + 1;  //error: Operator not applicable to this operand type
      Inc(p);
    
    //  Writeln(IntToStr((p+1)^)); //error: Operator not applicable to this operand type
      Writeln(IntToStr(p^));
    
      Readln(s);
    end;

可以看出

* 不能象C语言那样直接将数组赋值给指针 ( p := arr )，只能 ( p := @arr 或者 p := @arr[0] )，同样 p[2]也不是一个合法的表达式（错误信息为Array type required）
* 指针不能直接与数字做运算，比如p + 1这是不合法的（错误信息是Operator not applicable to this operand type），只能inc(p)或者dec(p)，如果要增2就inc(p, 2)

但字符数组是个例外：

    procedure TestCharArray;
    var
      arr : array[0..10] of Char;
      p : PChar;
      i : integer;
      s: string;
    begin
      for i:=0 to Length(arr)-1 do
        arr[i] := Chr(Ord('a') + i);
    
      p := arr;  //OK!
      p := @arr;
      Writeln(p^);
      p := @arr[0]; //the same effect with above line?
      Writeln(p^);
    
      p := p + 1;  //OK!
      Inc(p);
      Writeln(p[2]); //OK!
    
      Writeln((p+1)^); //OK!
    
      Readln(s);
    end;

这里，p := arr, p:= p + 2, p[2] 这几个表达式都合法了，并且结果与期望一致。

FreePascal (2.2.4)

    procedure TForm1.TestIntArray;
    var
      arr : array[0..10] of integer;
      p : PInteger;
      i : integer;
      s: string;
    begin
      for i:=0 to Length(arr)-1 do
        arr[i] := i + 1000;
    
      p := arr;  //OK!
      Memo1.Lines.Add(IntToStr(p^)); //output: 1000
      p := @arr;
      Memo1.Lines.Add(IntToStr(p^)); //output: 1000
      p := @arr[0]; //OK!
      Memo1.Lines.Add(IntToStr(p^)); //output: 1000
    
      Memo1.Lines.Add(IntToStr(p[2])); //OK! output: 1002
    
      p := p + 1;  //OK!
      Inc(p);
    
      Memo1.Lines.Add(IntToStr((p+1)^)); //OK! //output: 1003
      Memo1.Lines.Add(IntToStr(p^));
    
    //  Readln(s);
    end;

即使对于整数数组（其它也是，包括字符串数组），p := arr, p:= p + 2, p[2] 这几个表达式也都是合法的。

Delphi 2009

在默认的选项下，Delphi 2009与Delphi 7相同，上述三种表达式都不支持。但可以打开一个编译选项$POINTERMATH:

   {$POINTERMATH ON}
    procedure TestIntArray;
    var
      arr : array[0..10] of integer;
      p : PInteger;
      i : integer;
      s: string;
    begin
      for i:=0 to Length(arr)-1 do
        arr[i] := i + 1000;
    
    //  p := arr;  //error: Incompatible types: 'Array' and 'PInteger'
      p := @arr;
      Writeln(IntToStr(p^));{$POINTERMATH ON}
    procedure TestIntArray;
    var
      arr : array[0..10] of integer;
      p : PInteger;
      i : integer;
      s: string;
    begin
      for i:=0 to Length(arr)-1 do
        arr[i] := i + 1000;
    
    //  p := arr;  //error: Incompatible types: 'Array' and 'PInteger'
      p := @arr;
      Writeln(IntToStr(p^));
      p := @arr[0]; //the same effect with above line?
      Writeln(IntToStr(p^));
    
      Writeln(IntToStr(p[2])); //OK in D2009
    
      p := p + 1;  //OK in D2009
      Inc(p);
    
      Writeln(IntToStr((p+1)^)); //OK in D2009
    //  Writeln(IntToStr(p^));
    
      Readln(s);
    end;
      p := @arr[0]; //the same effect with above line?
      Writeln(IntToStr(p^));
    
      Writeln(IntToStr(p[2])); //OK in D2009
    
      p := p + 1;  //OK in D2009
      Inc(p);
    
      Writeln(IntToStr((p+1)^)); //OK in D2009
    //  Writeln(IntToStr(p^));
    
      Readln(s);
    end;

p := arr仍然是不合法的表达式，但 p + 2 和 p[2] 都可以了。

鲜花

握手

雷人

路过

鸡蛋

该文章已有0人参与评论

请发表评论

全部评论

专题导读

More+

10-27 六六分期app的软件客服如何联系？(六六分期

11-06 可心卡盟:win10系统火狐flash插件崩溃怎么

11-06 亲亲特价:怎么删除回收站图标

11-06 济南大学虚拟社区:鲁大师节能降温的具体办

11-06 xlueops.exe:无线网络安装向导

11-06 女斗合众国:win7系统cf与主机连接不稳定怎

11-06 0xc000022-[cf烟雾头]cf怎么调烟雾头

11-06 qizideyouhuo:应用程序无法正常启动0xc0000

11-06 ipz-185:win7系统vcf文件怎么打开

11-06 傻哥蹦迪:win10系统s4怎么打开usb调试

11-06 八神浩树gtaste:回收站清空了怎么恢复

11-06 妖尾之黑色守护:win10系统电脑没有1440x900

11-06 校园至尊魔王小说:win7系统浏览网页时字体

11-06 女斗合众国:win10系统访问共享文件夹提示请

11-06 tokyo hot n0654:恢复win7系统默认字体一招

11-06 雨酷仙境:设置win7系统转移临时文件夹腾出

11-06 阿穆纳伊之杖:win7系统开始菜单在右边还原

11-06 tunespotting:win10系统火狐flash插件总是

11-06 甘尔葛分析师：计谋网站seo关键词暴涨有什

11-06 蔡贵霖: 计谋网站seo关键词暴涨有什么秘密

11-06 博益网首页:ao3网页版进入不了解决方法

11-06 漏斗子专栏: 网站数据分析小白易懂精华篇

11-06 见证双虹怎么做:win7系统开启telnet命令的

11-06 颾狐蝶蜋:系统资源不足无法完成请求的服务

11-06 国光中学校歌:提交网站到alexa查询详细步骤

11-06 西安有情天:静态网页和动态网页的区别

11-06 红木雅尚斋:外部链接构造对网站的好处

11-06 前官礼遇：防止域名劫持–增强域安全性的10

11-06 密传二转答案: 中文分词算法有哪些

11-06 金泉家园邮编:百度快照劫持的表现及应对方

图像复原MATLAB实现发布时间：2022-07-18

Delphi与DirectX之DelphiX(35):TDIB.Saturation();发布时间：2022-07-18

剪的笔顺,诠释剪的笔画,认识剪的部首

1 六六分期app的软件客服如何联系？(六六分期

六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期

阅读：12243|2023-10-27

2 可心卡盟:win10系统火狐flash插件崩溃怎么

今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知

阅读：7396|2022-11-06

3 亲亲特价:怎么删除回收站图标

今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道

阅读：6296|2022-11-06

4 济南大学虚拟社区:鲁大师节能降温的具体办

今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要

阅读：6750|2022-11-06

5 xlueops.exe:无线网络安装向导

我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多

阅读：6577|2022-11-06

6 女斗合众国:win7系统cf与主机连接不稳定怎

今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不

阅读：7043|2022-11-06

7 0xc000022-[cf烟雾头]cf怎么调烟雾头

电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很

阅读：6514|2022-11-06

8 qizideyouhuo:应用程序无法正常启动0xc0000

我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法

阅读：5990|2022-11-06

9 ipz-185:win7系统vcf文件怎么打开

今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win

阅读：6414|2022-11-06

10 傻哥蹦迪:win10系统s4怎么打开usb调试

今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎

阅读：5686|2022-11-06

客服电话

电子邮件

Delphi/FreePascal用指针访问数组的异同

Delphi 7

FreePascal (2.2.4)

Delphi 2009

请发表评论

全部评论

上一篇：

下一篇：

PacktPublishing/Python-Machine-Learning-

sussillo/hfopt-matlab: A parallel, cpu-b

鲁东大学一米网:Win7系统USB驱动器RAM的操

emersion/go-ostatus: An OStatus library

CVE-2022-2169

剪的笔顺,诠释剪的笔画,认识剪的部首

florent37/ViewAnimator: A fluent Android

florent37/Shrine-MaterialDesign2: implem

六六分期app的软件客服如何联系？(六六分期

CVE-2020-36276

SimpleSoftwareIO/simple-sms: Send and re

关于我们

产品与服务

解决方案

139-2527-9053