Delphi 文件操作（2） Append

在我们使用这个Append过程时我们先看看的过程参数
Procedure Append(var F:Text);
   其中我们可以看到这个变量 F是一个TextFile类型的变量由此我们可以知道这个文件是对文本文件类型
进行操作的过程，而这当中的F必须和外部的文件进行关联，如果F没有和外部的文件进行关联那么它将会抛出
一个异常。如果F已经打开那么，它将会关闭F并从新打开。文件的指针将会设置在文件的末尾.

下面我们就举个例子：

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
   text:String;
   f:TextFile ;
const
   filedir= 'c:\temp\test.txt';
begin
   if not FileExists(filedir) then   //这里用到了一个判断文件是否存在的函数
    begin
      ShowMessage('测试文件'+filedir+'不存在');
      Exit;
    end
      else
        begin

         AssignFile(f,filedir);  //这里我们用到了AssignFile过程下面一节我会给大家介绍这个过程
         Append(f); //将文件指针定位到文件的末尾;
         write(f,'程序人生');//向文件Test.txt文件末尾写入数据”程序人生“;
         CloseFile(f); //对这个文件操作结束了，当然我们要关闭这个文件;

        end;

end;

end.