Delphi自编程程序生成。DFM和关联。Pas方法二
我已经做了第一种方法，现在我要做第二种方法
首先，编写一个从模板生成动态DFM文件的工具。工具内容如下：
变量
S： 串；
开始
开始
备忘录2.5行。清楚的
备忘录2.5行。添加
备忘录2.5行。添加
备忘录2.5行。添加
备忘录2.5行。添加
对于I:=0到1.5行。计数-1做什么
开始
S： =1.5行；
S： 是的。加上；‘；
备忘录2.5行。添加
终止
备忘录2.5行。添加
备忘录2.5行。添加
备忘录2.5行。添加
终止
终止
此事件用于打开模板。DFM，它生成自动化的。DFM或。PAS原型。过程
如果.DFM是二进制的，则使用以下函数将其转换为文本模式
变量
开始
尝试
尝试
尝试
除了
终止
终止
终止
终止
这个dfm模板如下所示：
对象表单2:TForm2
左＝0
Top=0
字体。高度=-12
字体。样式=
左＝0
Top=0
宽度=622
高度=433
左=72
Top=48
宽度=75
高度=25
终止
终止
终止
终止
生成过程如下：
变量
开始
尝试
TS.clear；
TS.ADD'objectform2:TForm2'；
TS.ADD；
TS.ADD；
TS.ADD'Font.Height=-12'；
TS.ADD；
TS.ADD；
TS.ADD；
TS.ADD；
TS.ADD；
TS.ADD；
TS.ADD；
TS.ADD；
TS.ADD；
TS.ADD；
TS.ADD；
TS.ADD；
TS.ADD；
TS.免费；
终止
终止
对于i:=0到100 do
开始
TS.ADD；
TS.ADD；
TS.ADD；
TS.ADD；
TS.ADD；
终止
在第二单元.dfm文件中生成了101个新按钮。
打开第二单元.pas并生成以下代码
变量
开始
尝试
TS.clear；
TS.ADD；
TS.ADD；
TS.ADD；
TS.ADD；
TS.ADD；
TS.ADD；
TS.ADD'TForm2=class；
TS.ADD；
TS.ADD；
TS.ADD；
TS.ADD；
TS.ADD；
TS.ADD；
TS.ADD；
TS.ADD；
TS.ADD；
TS.ADD；
TS.免费；
终止
终止
通过这种方式，可以自动实现动态DFM和PAS关联，并且这些文件可以用于设计和二次开发
通过这种方式，可以自动实现动态DFM和PAS关联，并且这些文件可以用于设计和二次开发
发表评论