delphi 处理之文本文件

本文整理自网络，侵删。

 
unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

var
  F: TextFile;
  FileName: string = 'c:/A.txt';


{$R *.dfm}

//向文本文件写入内容
procedure TForm1.Button1Click(Sender: TObject);
begin
  AssignFile(F,FileName);
  Rewrite(F);        //重写(覆盖)已存在的文件
  Writeln(F,'one');  //写入一行
  Writeln(F,'two');
  CloseFile(F);
end;

//读取文本文件内容
procedure TForm1.Button2Click(Sender: TObject);
var
  str:string;
begin
  AssignFile(F,FileName);
  Reset(F);         //以只读方式打开文本文件
  while not Eof(F) do      //循环文本文件,判断是否到尾部
  begin
    Readln(F,str);         //读取一行
    ShowMessage(str);
  end;
end;

//向文本文件追加内容
procedure TForm1.Button3Click(Sender: TObject);
begin
  AssignFile(F,FileName);
  Append(F);              //打开文件准备追加,指针指向文本末尾
  Writeln(F, 'three');   //写入一行
  Writeln(F, 'four');
  CloseFile(F);
end;

end.
 

相关阅读 >>

Delphi 使用代理服务器

Delphi 添加或解除引号

Delphi string转unicode

Delphi 如果判断一个网络文件是否存在？

Delphi extractfileext() 获取文件后缀的函数

Delphi ifileoperation替换shfileoperation

Delphi idsmtp控件发送邮件

Delphi 操作“任务栏”

idhttp访问网页出现socket error #10054错误

Delphi 通过api 隐藏任务栏时间日期

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 处理之文本文件