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.

源代码