源代码：
------------------------------------------------------------
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  p rivate
    { P rivate declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
//{$APPTYPE CONSOLE}
procedure TForm1.Button1Click(Sender: TObject);
var
  txt:TextFile;
  s:string;
  path:string;
begin
  path:=ExtractFilePath(Application.ExeName);
  AssignFile(txt,path+'\test.txt');
  //Writeln(path+'\test.txt');
  Reset(txt);   //读打开文件，文件指针移到首
  Memo1.Clear;
  while not Eof(txt) do
  begin
    Readln(txt,s);
    Memo1.Lines.Add(s);
  end;
  CloseFile(txt);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
  txt:TextFile;
  s:string;
  path:string;
begin
  path:=ExtractFilePath(Application.ExeName);
  Memo1.Clear;
  AssignFile(txt,path+'\test.txt');
  Append(txt);  //写打开文件，指针到尾
  Writeln(txt,'这是猪悟能写入的文本');  //写入一行带行结束标志
  CloseFile(txt);
end;
procedure TForm1.Button3Click(Sender: TObject);
var
  txt:TextFile;
  s,path:string;
begin
  path:=ExtractFilePath(Application.ExeName);
  Memo1.Clear;
  AssignFile(txt,path+'\test.txt');
  Reset(txt);
  Readln(txt,s);
  //Memo1.Lines.Add(IntToStr(FileSize(txt)));
  Memo1.Lines.Add(s);
  CloseFile(txt);
end;
end.