：关于DELPHI的那些陈年旧事

从头再来。 大家好。今天我想聊聊DELPHI。就是那个老掉牙的Pascal语言写的IDE。做？我想了很久。头都大了。就像便秘一样难受。

其实我想说的很简单。就是不想写那么多重复的代码。也不想每次都去改那个窗体文件。那个DFM文件。改来改去太麻烦了。容易出错。万一改坏了怎么办？所以我想着。能不能在程序运行的时候。自己把控件造出来。这就叫动态创建。听起来很酷。 弯道超车。 对吧？但是做起来。哎。一言难尽。特别是那个“别名注册”。这到底是个什么鬼？是给控件起个外号吗？还是说在内存里给它贴个标签？我想弄明白。所以我就开始瞎折腾。折腾了一天。发现这事儿没那么简单。甚至可以说。挺难的。

我也是个初学者。或者说是半桶水。我不懂那些高深的算法。也不懂什么设计模式。我就是想实现一个功能。比如我有一个列表。列表里有不同的东西。我想为每一个东西创建一个控件。但是这些控件类型不一样。有的要按钮。有的要文本框。有的要图片框。如果是静态写死。那代码会写得像面条一样。乱七八糟的。所以我必须得动态。必须得变通。但是变通之后。我又遇到了新问题。我怎么找到这个刚创建出来的控件呢？我得给它起个名字吧？比如叫“张三”。或者“李四”。这样我在后面用的时候。就可以直接喊它的名字。对吧？这就叫别名。但是DELPHI它不给面子。它不支持这种“喊名字”的方式。它非要你拿着身份证号。去查户口。太繁琐了，可以。。

静态创建的痛苦：不得不说的实话

在我们日常的开发中，这种方法用得并不多。

我们通常以静态的方式，来创建类的实例。

比如：

一句话概括... Btn := TButton.Create; 这种方式。简单。直接。不用动脑子。你把控件放在窗体上。IDE会自动帮你生成代码。或者你自己手写。反正都是死的。写一次。编译一次。以后这个控件就在那里了。它是个固定的东西。这就好比你养了一只猫。这只猫叫“娱乐”。它就在你家沙发上躺着。你饿了。直接喊“娱乐”过来吃饭就行。不用每次吃饭都去外面抓一只新的野猫回来喂。对吧？静态创建就是这种“养猫”模式。方便。快捷。不容易出错。

但是。凡事都有个但是。当你需要很多很多猫。而且每只猫的品种都不一样的时候。事情就变得麻烦了。比如你要做一个系统。里面有一百个按钮。但这一百个按钮的功能不一样。有的叫“登录”。有的叫“注册”。有的叫“注销”。有的叫“修改密码”。还有的叫“关于我们”。如果你用静态创建。你就得在窗体上拖一百个按钮。然后一个个去改Caption属性。 也许吧... 一个个去改事件处理函数。这简直是折磨。特别是当你需要把这些按钮排成整齐的队伍。还要响应不同的点击事件时。你的头会痛的。代码会变得非常冗余。维护起来。简直是一场灾难。你改了一个按钮的样式。后来啊发现其他的按钮也跟着变了。主要原因是你用的是静态引用。它们是一类东西。

而且。静态创建还有一个巨大的缺点。就是灵活性差。你想想。如果你在程序运行到一半的时候。突然想增加一个新的按钮。或者删除一个旧的按钮。你怎么办？你得重新编译程序。重新发布。用户还得重新下载安装包。多麻烦。这就像是你做的菜谱。写在纸上。 事实上... 你发现缺了一道菜。你没法在吃饭的时候。临时拿个锅炒个新菜出来。你只能去厨房把菜谱撕了。重新写一本新的。所以。静态创建。虽然简单。但是它太死板了。它不适合那些需要根据用户操作。或者根据数据内容。来实时变化界面的程序。

Btn := TButton.Create; 静态创建， 必须引用被创建类的类型，创建单个或者同一种类型的类实例时很方便。 但是在一边创建多个不同种类的类实例时就无能为力了。 如果我要创建一百个按钮。我写一百遍 TButton.Create 吗？那代码文件得有多大？

这也很麻烦。所以。静态创建。真的只能应付一些简单的、固定数量的界面。一旦涉及到动态变化。它就完蛋了，原来如此。。

而且我要怎么区分它们？我只能给它们起不同的名字。比如Button1，Button2，Button3……Button100。这名字取得真有创意。这简直就是没有创意。而且。如果我还要处理这100个按钮的点击事件。我难道要写100个 OnClick 的处理过程吗？虽然可以用同一个过程处理。但是里面还要判断是哪个按钮点击的，对，就这个意思。。

动态创建的诱惑：变形金刚般的自由

那么有没有办法解决呢？有。那就是动态创建。也就是在程序运行的时候。在内存里把控件“变”出来。这就像变魔术一样。你对着空气挥挥手。一个按钮就出来了。然后你再挥挥手。一个文本框也出来了。这种感觉很爽。主要原因是它完全不受限制。你想创建多少个就创建多少个。你想创建什么类型就创建什么类型。只要你内存够。CPU够快。你可以创造出一个包含所有控件的宇宙。

探探路。 动态创建的核心在于。你不再需要提前在窗体设计器里画好控件。你也不需要提前写好控件的声明。你只需要在代码里。调用控件的构造函数。比如 NewButton := TButton.Create;。这就行。这个按钮现在就在内存里了。它还没有位置。还没有大小。还没有颜色。它就像一个刚出生的婴儿。什么都不会。但是它有了生命。接下来。你需要给它穿衣打扮。给它摆位置。给它设置属性。比如 NewButton.Parent := Self;。这就好比你把婴儿放到了这个房间里。它现在有家了。

动态创建的好处。那是显而易见的。最大的好处就是灵活。你可以名字。如果有100条。就创建100个。这完全由数据驱动。界面跟着数据走。不用你手动去改界面。而且。动态创建可以让你实现一些非常酷炫的界面效果。比如。一个面板。里面有若干个按钮。当你点击一个按钮的时候。这个面板里的内容全部清空。然后根据你点击的按钮类型。重新生成新的控件。这就好比一个变形金刚。它可以根据任务的不同。变成汽车。变成飞机。变成机器人。这种体验。是静态创建完全无法比拟的，可能.….。

但是。凡事都有个但是。动态创建也有它的缺点。最大的缺点就是。你失去了IDE的“保姆式”服务。在窗体设计器里。你拖一个控件上去。IDE会自动帮你写很多代码。比如控件的初始化、事件绑定。这些IDE都帮你做好了。但是在动态创建的时候。这些都要你自己来。比如。你创建了一个按钮。你需要给它设置父容器。

一旦被创建出来。如果你没有保存好它的引用。它就会变成一个“野指针”。 何苦呢？ 程序一关闭。它就没了。根本找不到它在哪里。

需要给它设置位置。需要给它设置大小。需要给它设置颜色。需要给它设置字体。甚至需要给它绑定点击事件。如果这些都手动写。那代码量一点都不比静态创建少。而且。更容易出错。 一言难尽。 比如。你忘了给按钮设置Parent。那这个按钮就显示不出来。就像一个人娱乐了衣服跑在街上。谁也看不见。主要原因是你没给他穿衣服。而且。动态创建的控件。

实例别名注册：我想给控件起个外号

我舒服了。 虽然动态创建很方便。但是它有一个巨大的痛点。就是“怎么找到它”。这就像你把一堆东西扔进了杂乱无章的仓库里。你想找某个特定的东西。但是你连这个东西叫什么都忘了。或者你根本不知道它在哪里。在动态创建中。你创建了一堆按钮。它们都在内存里飘着。你只有通过它们的句柄或者内存地址来访问它们。但是这些地址是变化的。而且很难记。每次操作都要去查找。这效率太低了。

所以。我想到了一个办法。能不能给每个创建出来的控件。都起个“别名”？对。就是外号。就像人一样。你有大名。也有小名。你可以喊他的小名。他也能听见。比如。你的大名叫“张三”。你的小名叫“阿强”。别人喊“阿强”的时候。你肯定知道是在喊你。如果在程序里。我也给每个控件起个外号。比如第一个按钮叫“登录按钮”。第二个按钮叫“注册按钮”。然后我在后面调用的时候。直接喊“登录按钮”。然后程序就知道。哦。是那个叫“登录按钮”的控件。我要让它的颜色变红。我要让它的文字变粗。这样是不是就简单多了？这就叫“实例别名注册”，原来小丑是我。。

想法是美好的。现实是骨感的。我就在想。DELPHI能不能支持这种功能？它有没有内置的机制？比如一个注册表？或者一个字典？我查了一下资料。发现DELPHI本身好像没有直接提供这种“控件别名注册”的功能。它不像Python那样。可以随便给对象起名字。也不像JavaScript那样。可以动态地添加属性。在DELPHI里。对象是强类型的。你不能随便给一个按钮对象加一个“别名”属性。否则编译器会报错。说它不认识这个属性，这就说得通了。。

但是。这不代表我们就没辙了。虽然DELPHI不提供现成的功能。但是我们可以自己造一个轮子。对吧？我们可以写一个辅助类。或者写一个函数。专门用来做这个“注册”和“查找”的工作。这就像是我们自己开发了一个小型的数据库系统。只不过这个数据库不是放在硬盘上。而是放在内存里。我们可以创建一个哈希表。或者一个字符串到对象的映射。当我们创建一个新控件的时候。就把它放进这个映射表里。给它一个唯一的键。比如“Button_Login”。然后把这个键和控件对象绑定在一起。当我们需要用这个控件的时候。就通过这个键。去映射表里查找。就能立刻拿到这个控件对象。这样就实现了“别名注册”的功能，对吧？。

卷不动了。 这听起来是个好主意。对吧？我也这么觉得。所以我决定试一试。我要写一个函数。叫 RegisterControl。这个函数接收两个参数。一个是别名字符串。一个是控件对象。然后把这个字符串和对象存到一个全局的列表里。比如叫 ControlList。然后我再写一个函数。叫 FindControl。这个函数接收一个别名字符串。然后在 ControlList 里遍历查找。如果找到了。就返回这个控件对象。如果没找到。就返回nil。这样。我以后就可以直接调用 FindControl 来获取登录按钮了。这简直是太方便了。感觉就像是打通了任督二脉。

实现过程中的坑：这事儿真没我想象的那么简单

说干就干。我马上开始敲代码。写完了 RegisterControl 和 FindControl。感觉非常完美。代码逻辑清晰。注释详细。简直就是艺术品。我激动得差点哭了。然后我运行程序。开始测试。我创建了一个按钮。给它注册了一个别名叫“TestBtn”。然后我尝试调用 FindControl。后来啊。什么都没有返回。是nil。我傻眼了。怎么回事？明明我注册了啊。为什么找不到？

我开始检查代码。是不是拼写错了？是不是参数传错了？我反复看了好几遍。没有错啊。名字明明是“TestBtn”。难道是大小写问题？DELPHI是区分大小写的吗？ 人间清醒。 好像是的。我赶紧把查找的字符串改成“testbtn”。还是不行。我又把注册的别名改成“testbtn”。还是不行。

我开始怀疑人生了。难道DELPHI的内存管理有问题？我的控件对象是不是被垃圾回收了？主要原因是我用的是动态创建。而且没有指定Owner。如果Owner为nil。那么这个控件的生命周期可能和普通变量一样。一旦出了作用域。它可能就被释放了。我想起来我写的是 Btn := TButton.Create;。这确实是个问题。如果Owner为nil。控件不会被自动释放。但是它的引用计数可能没有增加。所以。它可能在我注册之前。或者注册之后。就被系统回收了。我赶紧改代码。把 nil 改成 Self。也就是把Owner设为当前窗体。这样控件就会随窗体一起销毁。引用计数也会正常管理。

改完之后。我 运行程序。 调用 FindControl。这次。终于返回了！是一个按钮对象！我高兴得跳了起来。但是。还没等我高兴太久。新的问题又出现了。当我关闭程序。 结果你猜怎么着？ 重新打开。 运行到注册控件的那一行代码时。程序崩溃了。或者是访问了非法内存。报错说“List index out of bounds”。

一访问就崩溃。

层次低了。 这又是怎么回事？我意识到。我的 ControlList 是一个静态的列表。每次程序启动。我都会往里面添加新的控件。但是。当我关闭程序再打开的时候。这个列表并没有被清空。里面还残留着上一次运行的数据。所以。当我往里面添加新的控件时。列表里已经有旧的数据了。导致索引越界。或者。主要原因是旧控件已经被释放了。所以现在列表里的引用都是野指针。

原来这么麻烦。我原本以为写个注册表就万事大吉了。没想到。居然有这么多的细节要考虑。生命周期管理。引用计数。内存泄漏。索引越界。这些以前我在看书的时候。觉得只是按道理讲的东西。现在自己动手做。才发现全是坑。一个坑没填平。又掉进另一个坑里。我就像是在玩一个名为“DELPHI”的巨型游戏。地图充满了陷阱。稍不注意。就Game Over了。

折腾后的：虽然很烂，但是很有用

等..…. 经过一整天的折腾。我的眼睛都花了。头也晕了。但是。我到头来还是把这个“实例别名注册”的功能给实现了。虽然过程很曲折。虽然代码写得一塌糊涂。虽然充满了各种bug和临时修补。但是。它确实能跑。而且跑得还挺快。它解决了我之前遇到的最大痛点。就是动态创建控件后的查找问题。现在。我可以轻松地给每个控件起个外号。然后随时调用。再也不用去记那些乱七八糟的名称了。

这个过程让我明白了一个道理。技术这个东西。光看书是学不会的。你必须亲手去写。去犯错。去踩坑。只有踩过坑。你才知道哪里有坑。才能学会怎么填坑。我写的这个功能。虽然可能不是最优雅的。可能不是最高效的。甚至可能有很多漏洞。但是它是我自己思考。自己动手做出来的。它属于我。它融入了我的心血。这就足够了。就像我做的饭。虽然卖相不好。味道可能也不如餐馆里的。但是它是我自己做的。吃起来特别香，太扎心了。。

所以。回到一开始的问题。学习DELPHI控件动态创建。能轻松实现实例别名注册吗？我的答案是。能。但是不能“轻松”。这绝对不是一件轻松的事情。它需要你理解对象的生命周期。理解内存管理。理解集合的使用。甚至需要你具备一定的调试能力。 干就完了！ 如果你只是想随便玩玩。那就算了。如果你真的想深入理解DELPHI。想写出灵活多变的程序。那这个功能。你一定要去尝试一下。去折腾一下。即使再说说失败了。或者写得很烂。你也会学到很多东西。这些东西。是书本上学不到的。

翻车了。 再说说。我想说。编程真的很累。但是也很有趣。当你解决了一个困扰你很久的问题。当你看到屏幕上跳出你想要的后来啊。那种成就感。是任何东西都换不来的。虽然我今天写的这篇文章。很烂。很乱。没有逻辑。没有章法。甚至有很多废话。但是。这是我最真实的感受。也是我真实的思考过程。希望对看到这篇文章的人。能有一点点启发。哪怕只有一点点。也是好的。好了。不说了。我的代码还没写完。我得继续去填坑了。再见。