常见文件处理之文本文件
2015-11-27 23:43
344 查看
文本文件是以行为单位进行读、写的。由于每一行的长度不一定相同,不能计算出给定行在文件中的确切位置,因而只能顺序地读写。
文本文件只能单独为读或写而打开,在一个打开的文本文件上同时进行读、写操作是不允许的。
文本文件的打开需要两个步骤:1.文件变量与文件名关联;2.初始化读写。
1.文件变量与文件名关联:
AssignFile(VarTxt, FileName);
FileName 如果省略路径将默认当前目录。
2.初始化读写有三种方式:
(1) Reset: 只读打开, 指针移到文本开始;
(2) Rewrite: 创建新文件并打开, 只写;
(3) Append: 从尾部追加, 指针指向文本末尾。
文件不存在时使用 Reset 或 Append 会引发一个I/O异常。
最后用 CloseFile 关闭文件。
下面是常用的三个操作,写入内容,读取内容,追加内容
[delphi] view plaincopy
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.
/article/2935910.html
文本文件只能单独为读或写而打开,在一个打开的文本文件上同时进行读、写操作是不允许的。
文本文件的打开需要两个步骤:1.文件变量与文件名关联;2.初始化读写。
1.文件变量与文件名关联:
AssignFile(VarTxt, FileName);
FileName 如果省略路径将默认当前目录。
2.初始化读写有三种方式:
(1) Reset: 只读打开, 指针移到文本开始;
(2) Rewrite: 创建新文件并打开, 只写;
(3) Append: 从尾部追加, 指针指向文本末尾。
文件不存在时使用 Reset 或 Append 会引发一个I/O异常。
最后用 CloseFile 关闭文件。
下面是常用的三个操作,写入内容,读取内容,追加内容
[delphi] view plaincopy
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.
/article/2935910.html
相关文章推荐
- cctype 中的字符函数
- Map , List Android
- java基础学习——变量,java基本类型,运算符和表达式
- Recipes for Running Spark Streaming Applications in Production
- 蓝桥杯 基础练习 FJ字符串
- asp.net 类库中获取session c#类中获取session
- delete和Truncate的较量
- Linux常用命令记录
- setlocal 与 变量延迟
- nginx + tomcat 导致session丢失的问题
- 回文数
- 数据库操作语言
- 获取进程列表及相关信息
- ca des key crt scr
- android-Content providers
- 窗体的扩展样式GWL_EXSTYLE用于SetWindowLong
- linux日常管理-防火墙netfilter工具-iptables-3
- 用python开启简单服务器
- 内存映射对于大文件的使用
- 游戏存档