Delphi 文件操作(4)Reset
procedure
Reset(
var
F [:
File
; RecSize:
Word
] );
{
作用:
对于文本文件,Reset过程将以只读方式打开文件,对于类型文件和无类型文件,Reset过程将以可读写方式打开文件
procedure Reset(var F [: File; RecSize: Word ] );
F:File 类型变量,可以是任何文件类型;
RecSize:文件的大小,这个参数是一个可选参数,只有当F为无类型文件时才可以被指定。如果F为无类型文件,则RecSize指定了在数据传输过程中使用的记录的大小。如果参数RecSize被省略了,则默认的记录大小为128字节。
需要注意:
当该过程打开文件时,如果文件不存在则产生异常。如果文件已经打开,则先关闭文件,然后重新打开,将将文件的指针放到文件的开头处(有点像Append只不过他们两是相反的),默认的文件模式(FileMode)为2, 即读写模式。如果文件模式在调用ReSet过程前都没有改变,则尝试打开一个只读文件只失败。当调用ReSet过程后,文件为空,则Eof函数返回True,否则返回False;
}
{$APPTYPE CONSOLE}
{By:天下第一小贱人}
uses
Windows;
{新建一个TXT文档}
Procedure NewTxt(FileName:String);
Var
F : Textfile; {定义 F 为 Textfile}
Begin
AssignFile(F,FileName); {将文件名与变量 F 关联}
ReWrite(F); {创建Txt文档并命名为 “FileName ” }
Closefile(F); {关闭文件 F}
End;
{读取指定的TXT文档}
Procedure ReadTxt(FileName:String);
Var
F : Textfile;
Str : String;
Begin
AssignFile(F, FileName);
Reset(F);
Readln(F, Str); {读取内容并赋值给 Str}
Closefile(F);
End;
{先附上原内容在写入新内容}
Procedure AppendTxt(Str:String;FileName:String);
Var
F:Textfile;
Begin
AssignFile(F, FileName);
Append(F); {附上原来的内容以免原内容被清空}
Writeln(F, Str); {把内容 Ser 写入文件F }
Closefile(F);
End;
{逐行读取,顾名思义一行一行的读取内容}
Procedure ForTxt(FileName:String);
Var
F:Textfile;
S:String;
Ser:String;
begin
AssignFile(F,FileName);
Reset(F);
while not EOF(F) do {循环读取}
begin
Readln(F,S);
Ser:=Ser+S+#13#10;
end;
CloseFile(F);
end;
Begin
// NewTxt('i:\我的文档\桌面\Delphi对Txt的基本操作.Txt');
// ForTxt('i:\我的文档\桌面\Delphi对Txt的基本操作.Txt');
// ReadTxt('i:\我的文档\桌面\Delphi对Txt的基本操作.Txt');
// AppendTxt('aaaaaaaaaaaaaaaaa','i:\我的文档\桌面\Delphi对Txt的基本操作.Txt');
Readln;
End.
最新文章
- Mat转换为QImage
- Senparc.Weixin.MP SDK 微信公众平台开发教程(六):了解MessageHandler
- 为MongoDB创建一个Windows服务
- jsp配置项目时出错Deployment failure on Tomcat 6.x. Could not copy all resources to
- DES算法详解
- 如何快速开发树形列表和分页查询整合的WInform程序界面
- JDBCTemplate基础学习
- sql,插入最大值加1
- 09_httpclient测试SOAP协议
- PopupWindow的使用以及ArrayAdatper.notifyDataSetChanged()无效详解
- 优化hexo访问速度-将hexo部署到云主机VPS
- Ubuntu16.04建立本地更新源
- git diff old mode 100644 new mode 100755
- Python全栈-magedu-2018-笔记7
- python 爬虫(一) requests+BeautifulSoup 爬取简单网页代码示例
- Ipad也怕冷?!
- 给tabhost加上点击监听,不是onTabChanged(String)监听
- Linux 中排除掉筛选的文件
- 【模板】Tarjan算法与有向图的强连通性
- 利用Jsoup模拟跳过登录爬虫获取数据