上章回顾：指针类型的声明指针的运算无类型指针字符指针类型动态存储结构的实现本章要点：公共对话框数据文件文本相关控件7.1循序渐进学理论7.1.1公共对话框控件Defaultext设置系统自动附加的扩展文件名Filter:设置可打开的文件类型Filterindex:设置默认的filter值。Initialdir:设置对话框打开的初始路径Options:设置对话框的作用及表现形式。7.1.1公共对话框控件在控件栏中的dialog页上提供了dialog控件，为用户提供了一系列标准的Windows公共对话框的控件，可以使用它进行打开或者保存文件、设置字体、选择颜色、设置打印选项等操作。3.字体对话框（fontdialog）控件fontdialog控件用于提供一个字体对话框。如图11-2所示，用户所选择字体的名字、样式、大小、效果及颜色将被赋予fontdialog的font属性。4.颜色对话框（colordialog）控件colordialog控件用于提供一个颜色对话框。如图11-3所示，用户所选择的颜色等属性将被赋予colordialog的color属性。7.1.2公共对话框的应用举例procedureTForm1.Button1Click(Sender:TObject);beginwithopendialog1doifexecutethenmemo1.lines.add(filename);end;procedureTForm1.Button2Click(Sender:TObject);beginwithsavedialog1doifexecutethenmemo1.lines.add(filename);end;procedureTForm1.Button3Click(Sender:TObject);beginfontdialog1.font:=memo1.font;withfontdialog1doifexecutethenmemo1.font:=fontdialog1.font;end;procedureTForm1.Button4Click(Sender:TObject);beginwithcolordialog1doifexecutethenmemo1.color:=colordialog1.Color;end;Delphi的文件分为文本文件、有类型文件和无类型文件。在一般情况下，文件仅指磁盘文件，但外设如打印机、显示器也是文件，本章的文件仅指磁盘文件。7.2.1适合于各种文件的基本操作(2)文件变量与外部文件中断联系。通过调用CloseFile过程可以中断文件变量（F）与外部磁盘文件之间的联系。CloseFile过程的声明如下：procedureCloseFile(varF);2.文件的打开与关闭以读方式打开文件（Reset）。以写方式打开文件（Rewrite）(3)用Erase过程删除文件。通过调用Erase过程可删除一外部文件。Erase过程的声明如下：procedureErase(varF);1.以添加方式打开文件（Append）通过调用函数Append可打开一个已经存在的文件以便于在文件末尾添加文本。如果在文件最后的128个字节块中，存在字符〈Ctrl〉+〈Z〉（ASCII26），那么文件将在该字节处插入，并且覆盖该字符。也就是说，文本可被插入到以字符〈Ctrl〉+〈Z〉终止的文件后。Append过程的声明如下：procedureAppend(varF:Text);2.文本文件的读取与写入文本文件通过调用Reset过程后以读方式打开后，就可以使用Read或Readln过程来读取文件数据了。文本文件通过调用Rewrite或Append过程打开一文件后就可以使用Write或Writeln过程来写入数据。(1)用Read过程读取数据。通过调用Read过程可以从文本文件中读取字符串、字符或数字。(2)用Readln过程读取数据。通过调用Readln过程可以从文本文件中读取字符串、字符或数字，直到一行的结束。(3)用Write过程写入数据。通过调用Write过程可以向文件中写入数据(4)用Writeln过程写入数据。通过调用Writeln过程可以向文件中写入一行数据，并在结尾处输入回车换行符。3.文件的基本操作对文本文件进行操作的基本函数与过程，见表11-3。【例7-2】设计一个简易文本编辑器，具有创建、编辑、保存普通文本文件的功能，如程序所示。varForm1:TForm1;f:textfile;wfilename:string;flag:boolean;