unit AssignFileSetting;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
var
   f:TextFile;
const
    filepath = 'e:\temp\AssignFile.txt';
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  AssignFile(f, filepath); {对文件进行操作当然先得关联你要操作的文件吧！！}
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Append(f); {将文本文件的写入指针定位到文件最后一行；}
  Write(f, Memo1.text); {将Memo1中的内容写入到AssignFile.txt文件当中}
  CloseFile(f);{对于操作完的文件将他关闭掉，从而释放掉该文件所占居的内存}
end;


end.
 {
AssignFile过程说明；

作用：
    将一个外部文件的文件名与一个File类型的变量关联，并对变量进行初始化。 对于文件操作得先进行操作文件的关联，如果不进行关联鬼知道你要对哪个文件进行操作！！

 原型：procedure AssignFile(var F; FileName: String);
                F：一个File类型的变量，可以是任何数据类型。
                FileName：外部文件的文件名。
}