Delphi初浅入门笔记之七：文件操作
Delphi中的文件分为文本文件、有类型文件和无类型文件。在一般情况下，文件仅指磁盘文件，外设如打印机、显示器也是文件，这里的文件仅指磁盘文件。
文件的基本操作：
与外部文件联系的建立与中断
在Delphi中要对外部为难进行读写操作前后，需要将该外部文件名分配给一个文件类型的变量；当不需要对外部文件进行读写时，需要中断文件变量与该外部磁盘文件的联系。
文件的打开与关闭
在对文件进行读写操作前后要打开或者关闭该文件。
关于文件的操作就只了解了这么多。最后用一个简单的小例子来说明吧：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ToolWin, ActnMan, ActnCtrls, ActnMenus, Menus,
ComCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
MainMenu1: TMainMenu;
F1: TMenuItem;
N1: TMenuItem;
O1: TMenuItem;
S1: TMenuItem;
E1: TMenuItem;
E2: TMenuItem;
RichEdit1: TRichEdit;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
ColorDialog1: TColorDialog;
procedure FormCreate(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure O1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
f:textfile;
wfilename:string;
flag:Boolean;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Text:='Delphi对外部文件操作前后，需要将该外部文件分配给'+
'一个文件类型的的变量；当不需要对外部文件进行读写时，需要中断文件变量与该'+
'外部磁盘文件的联系';
end;
procedure TForm1.N1Click(Sender: TObject);
begin
assignfile(f,'C:\123.txt');//与C:\123.txt的文件建立联系
form1.Caption:='123.txt';//将标题栏更改为文件的名字
rewrite(f); //Rewrite函数是以写的方式打开文件
end;
procedure TForm1.O1Click(Sender: TObject);
var
line:string;
begin
if opendialog1.Execute then
begin
assignfile(f,opendialog1.filename);
richedit1.Enabled:=false;
end;
while not eof(f) do
begin
readln(f,line);
richedit1.Lines.Add(line);
end;
closefile(f);
end;
end.
