20.3.1.1写dfm文件的过程：writecomponentresfie

　　　该过程带有两个参数filename和instance。filename参数指定要写入的dfm文件名，instance参数是tcomponent类型的，它指定要写入的部件名，一般是tform对象的子类。该过程将instance部件和其拥有的所有部件写入dfm文件。

　　这个过程的意义在于，可以在程序运行过程中产生delphi的窗体部件和在窗体中插入部件，并由该函数将窗体写入dfm文件，支持了动态dfm文件的重用性。

procedure writecomponentresfile(const filename: string; instance: tcomponent);

　　函数中，用filestream创建文件，用stream对象的writecomponetres方法将instance写入流中。

20.3.1.2 读dfm文件的函数：readcomponentresfile

readcomponentresfile函数带有两个参数filename和instance。filename参数指定要读dfm文件名，instance参数指定从dfm文件中要读的部件。该函数从dfm文件中将instance和它拥有的所有部件，并返回该部件。

　　这个函数的意义在于，配合writecomponentresfile过程的使用支持dfm文件的重用性。

function readcomponentresfile(const filename: string; instance: tcomponent):

　　程序中使用filestream对象打开由filename指定的dfm文件，然后用stream对象的readcomponentres方法读出instance，并将读的结果作为函数的返回值。

20.3.1.3 读取delphi应用程序资源中的部件

　　函数internalreadcomponentres可以读取delphi应用程序资源中的部件。delphi 的dfm文件在程序经过编译链接后被嵌入应用程序的资源中，而且格式发生了改变，即少了资源文件头。

在第一节中曾经介绍过tresourcestream对象，该对象是操作资源媒介上的数据的。函数internalreadcomponentres用了tresourcestream。程序是这样的：

function internalreadcomponentres(const resname: string;

begin { 避免“eresnotfound”异常事件的出现 }

　　hinstance是一个delphi vcl定义的全局变量，代表当前应用程序的句柄。函数用了资源访问api函数findresource来测定是否存在resname所描述资源。因为在tresourcestream的创建过程还有findresource等操作，所以函数中调用了freeresource。最后函数调用了stream对象的readcomponent方法读出部件。因为函数的instance是var类型的参数，所以可以访问instance，得到读出的部件。

20.3.1.4 dfm文件与标准文本文件(txt文件)的相互转换

　　在delphi可视化设计环境中，允许程序员在代码编辑器中以文本的方式浏览和修改dfm文件内容。当用file/open命令直接打开dfm文件或者选择窗体设计窗口的弹出式菜单上的view as text命令时，就会在编辑器中出现文本形式的信息。我们姑且将这种文本形式称之为窗体设计脚本。