file1.pas

Delphi高级程序开发配书源代码,可以循序渐进的学习Delphi.

unit file1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    fileName: TEdit;
    btnOK: TButton;
    Label2: TLabel;
    fileDir: TEdit;
    mFile: TMemo;
    btnOpen: TButton;
    btnAppend: TButton;
    btnClose: TButton;
    procedure btnOKClick(Sender: TObject);
    procedure btnOpenClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btnAppendClick(Sender: TObject);
    procedure btnCloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnOKClick(Sender: TObject);
var
    MyTextFile: TextFile;
    s1: String;
    s2: String;
    i: integer;
begin
    AssignFile(MyTextFile, fileDir.Text+fileName.Text);
    Rewrite(MyTextFile);
    try
        for i := 1 to 5 do
        begin
            s1 := '这是第 ';
            s2 := ' 行';
            Writeln(MyTextFile,s1,i,s2);
        end;
    finally
        CloseFile(MyTextFile);
        ShowMessage('恭喜！文件创建成功！');
    end;
end;

procedure TForm1.btnOpenClick(Sender: TObject);
var
    MyTextFile: TextFile;
    s : string;
begin
    mFile.Clear();
    AssignFile(MyTextFile,fileDir.Text+fileName.Text);
    Reset(MyTextFile);
    while not eof(MyTextFile) do
				begin
					readln(MyTextFile,s);
					mFile.Lines.Add(s)
				end;
    CloseFile(MyTextFile);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
    mFile.Clear();
end;

procedure TForm1.btnAppendClick(Sender: TObject);
var
    MyTextFile: TextFile;
    s1: String;
    s2: String;
    i: integer;
begin
    AssignFile(MyTextFile, fileDir.Text+fileName.Text);
    Append(MyTextFile);
    try
        for i := 6 to 10 do
        begin
            s1 := '这是第 ';
            s2 := ' 行';
            Writeln(MyTextFile,s1,i,s2);
        end;
    finally
        CloseFile(MyTextFile);
        ShowMessage('恭喜！文件添加成功！');
    end;
end;

procedure TForm1.btnCloseClick(Sender: TObject);
begin
    Form1.Close();
end;

end.