需求是把record 保存在TList中,并可以随时改变TList中Items的各项值。

代码很简单:

   MyRec = record

        MyStr: string;

        constructor Create(AMyStr: string);

end;

TForm4 = class(TForm)

  Button1: TButton;

  procedure Button1Click(Sender: TObject);

        public

  MyList: TList<MyRec>;

end;

constructor MyRec.Create(AMyStr: string);

begin

    MyStr := AMyStr;

end;

procedure TForm4.Button1Click(Sender: TObject);

begin

    MyList := TList<MyRec>.Create;

    MyList.Add(MyRec.Create('str'));

    MyList.Items[].MyStr := 'www'; //[Error] Unit4.pas(): E2064 Left side cannot be assigned to

    ShowMessage(MyList.Items[].MyStr);

end;

无法赋值?想了一下,大概是因为左侧取出的是变量值本身,而不是变量,所以无法赋值。那么我取值地址再赋值总可以吧?于是改动如下:

procedure TForm4.Button1Click(Sender: TObject);

var

    ps: ^string;

begin

    MyList := TList<MyRec>.Create;

    MyList.Add(MyRec.Create('str'));

    ps := @MyList.Items[].MyStr; //[DCC Error] Unit4.pas(): E2036 Variable required

    ps^ := 'www';

    ShowMessage(MyList.Items[].MyStr);

end;

必须为变量?又想了一下,大概是因为左侧取出的是变量值本身,而不是变量,所以无法取地址。那没办法,只能改一下TList,了,于是改动如下

Tpye

PMyRec = ^MyRec;

procedure TForm4.Button1Click(Sender: TObject);

begin

    MyList := TList<PMyRec>.Create;

    MyList.Add(MyRec.Create('str')); //[DCC Error] Unit4.pas(): E2010 Incompatible types: 'PMyRec' and 'MyRec'

    MyList.Items[].MyStr := 'www';

    ShowMessage(MyList.Items[].MyStr);

end;

要是Create能返回指针就好了。不多说,继续改:

procedure TForm4.Button1Click(Sender: TObject);

begin

    MyList := TList<PMyRec>.Create;

    MyList.Add(@MyRec.Create('str')); //[DCC Error] Unit4.pas(): E2036 Variable required

    MyList.Items[].MyStr := 'www';

    ShowMessage(MyList.Items[].MyStr);

end;

……。继续改:

procedure TForm4.Button1Click(Sender: TObject);

var

    r: MyRec;

begin

    MyList := TList<PMyRec>.Create;

    r := MyRec.Create('str');

    MyList.Add(@r);

    MyList.Items[].MyStr := 'www';

    ShowMessage(MyList.Items[].MyStr);

end;

看起来似乎是可以了,但是:

procedure TForm4.Button2Click(Sender: TObject);

begin

    ShowMessage(MyList.Items[].MyStr); // Access Violation!

end;

想了一下,大概是r的内存被释放了。于是改动如下:

procedure TForm4.Button1Click(Sender: TObject);

var

    p: PMyRec;

begin

    MyList := TList<PMyRec>.Create;

    New(p);

    p.Create('str');

    MyList.Add(p);

    MyList.Items[].MyStr := 'www';

    ShowMessage(MyList.Items[].MyStr);

end;

OK了,不过真是麻烦,不用的时候还要dispose。感觉没有C++灵活。

关于 Record & TList 的一点吐槽的更多相关文章

  1. chromiun 学习《一》

    众所周知,Chrome是建立在开源的Chromium项目上的. 而且不得不说,学习并分析开源项目的代码对一个程序员的提高确实蛮大的.这篇博文我会记录一下学习过程中我遇到的一些问题,并分享学习中我所参考 ...

  2. HDU 4609 3-idiots FFT+容斥

    一点吐槽:我看网上很多分析,都是在分析这个题的时候,讲了半天的FFT,其实我感觉更多的把FFT当工具用就好了 分析:这个题如果数据小,统计两个相加为 x 的个数这一步骤(这个步骤其实就是求卷积啊),完 ...

  3. Visual Studio 20周年,我和VS不得不说的故事(内含福利)

    Visual Studio 2017正式版已如期发布(点击这里查看发布全记录)!自去年 11 月正式宣布 Visual Studio 项目之后,微软终于正式推出了“宇宙最强集成开发环境(IDE)”的最 ...

  4. 【★】EIGRP终极解析!

    EIGRP的思维导图 如图,我想采用一种全新的"框架式"教学法,或者叫"盖楼",旨在利用抽象的外部接口,分类分层地介绍各个机制之间的关系.其实任何学习到最后都 ...

  5. 产品炼成记·hostingranking.cn·基于ghost的轻量技术架构整理

    本篇纯粹只讲hostingranking.cn网站的技术架构,也就是怎么做到的,达到什么效果.至于它是什么,为什么要做暂且不说,另篇会分享. 技术组成 首先hostingranking.cn是基于gh ...

  6. Shadow Properties之美(二)【Microsoft Entity Framework Core随笔】

    接着上一篇Shadow Properties之美(一),我们来继续举一个有点啰嗦的栗子. 先看简单需求:某HR系统,需要记录员工资料.需要记录的资料有: 员工号(规则:分公司所在城市拼音首字母,加上三 ...

  7. Visual Studio 20周年,我和VS不得不说的故事

    Visual Studio 2017正式版已如期发布(点击这里查看发布全记录)!自去年 11 月正式宣布 Visual Studio 项目之后,微软终于正式推出了“宇宙最强集成开发环境(IDE)”的最 ...

  8. OO最后一次作业

    终于开始最后一次作业了,是时候为这学期oo画一个圆满的局句号了. 回首这学期的OO经历,一路走来,经过了开始对面向对象的初步接触,然后就是充满痛苦回忆的多线程,接下来到了令人焦头烂额的规格设计,最后是 ...

  9. ANTLR4权威指南 - 第5章 设计语法

    在第I部分,我们熟悉了ANTLR,并在一个比较高的层次上了解了语法以及语言程序.现在,我们将要放慢速度来学习下实现更实用任务的一些细节上的技巧,例如建立内部数据结构,提取信息,生成输入对应的翻译内容等 ...

随机推荐

  1. 禁止浏览.htaccess文件

    很多黑客会攻击和利用.htaccess做网站跳转,所以保护好.htaccess文件尤为重要. 在apache的httpd.conf的配置文件中 默认是已经设置了禁止对.htaccess的访问,截取相关 ...

  2. T-SQL中找出一个表的所有外键关联表

    二种方法(下例中表名为T_Work) 1.SQL查询系统表 SELECT 主键列ID=b.rkey ,主键列名=(SELECT name FROM syscolumns WHERE colid=b.r ...

  3. Android网络连接判断与处理

    博客分类: Android 获取网络信息需要在AndroidManifest.xml文件中加入相应的权限. <uses-permission android:name="android ...

  4. Bootstrap<基础十四> 按钮下拉菜单

    使用 Bootstrap class 向按钮添加下拉菜单.如需向按钮添加下拉菜单,只需要简单地在在一个 .btn-group 中放置按钮和下拉菜单即可.也可以使用 <span class=&qu ...

  5. VBA续嘘嘘

    什么是VBA?它有什么作用? A.实现Excel中没有实现的功能. B.提高运行速度. C.编写自定义函数. D.实现自动化功能. E.通过插入窗体做小型管理软件. VBA在哪里存放的?怎么运行? A ...

  6. 嵌入式Linux的调试技术

    本节我们研究嵌入式Linux的调试技术,对于复杂的Linux驱动及HAL等程序库,需要使用各种方法对其进行调试.刚开始讲了打印内核调试信息:printk,这个函数的用法与printf函数类似,只不过p ...

  7. leetcode 日记 162. Find Peak Element java python

    根据题目可知,输入为:一个相邻元素不相等的数列,输出为:其中一个(上)峰值的序号.并且要求时间复杂度为logn 分析:由于题目要求时间复杂度为logn,因此不能进行全部遍历.又因为只需要找到其中的一个 ...

  8. 改变系统自带UITableViewCell的imageView的大小

    CGSize itemSize = CGSizeMake(, ); UIGraphicsBeginImageContextWithOptions(itemSize, NO,0.0); CGRect i ...

  9. CMT learning

    一个 GMT 命令由"gmt + 模块 + 选项 + 参数"构成,写成如下形式: gmt module -Axx+bxxxx -Bxx+axxxx • gmt 是 GMT 中&qu ...

  10. commonjs AMD,CMD

    CommonJS CommonJs 是服务器端模块的规范,Node.js采用了这个规范. 根据CommonJS规范,一个单独的文件就是一个模块.加载模块使用require方法,该方法读取一个文件并执行 ...