处理之文本文件
2013-11-18 10:15
176 查看
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.
View Code
相关文章推荐
- hibernate 注解的使用
- linuxdc ftp 下载用户名和密码
- ASP.Net 心路笔记之二 后台注册脚本字符串错误
- Oracle基础知识(十二) - 视图
- ntp源码
- UML建模之类图(Class Diagram,UML图)
- stagefright简介
- eclipse tab replace 4 space.
- ant ssh remote
- JS/JSON详解
- PHP 读取与写入txt文件并并赋值给数组
- 微软等面试100题筛选答案-5-求K小
- 九大角度全方位对比Android、iOS开发
- zTree使用的一些经验
- launchConfigurationTypes
- ant show the numbers when the system occour exception
- Jenkins中使用Git和Maven之多个项目
- 设计模式之多例模式(Multition Pattern)
- UX
- javascript之Window 对象