delphi 读写文本文件(函数比较全)
需要两个按钮和两个Richedit控件,采用默认名称即可.
procedure TForm1.Button1Click(Sender: TObject); //写文件
var wText: TextFile;
begin
AssignFile(wText, 'ip.txt');
Rewrite(wText);//创建文件,或者使用ReSet打开文件
Writeln(wText, richedit1.text);
CloseFile(wText);
end;
procedure TForm1.Button2Click(Sender: TObject); //读文件
var rText: TextFile;
tmp:String;
begin
richedit2.Clear;//清除原来的内容
AssignFile(rText, 'ip.txt');
reset(rText);
while not EOF(rText) do
begin
readln(rText,tmp);
richedit2.Lines.Add(tmp);
end;
closefile(rText);
end;
相关知识内容:
在对文本文件进行任何处理之前,首先要打开此文本文件。声明变量:通过此变量可以来引用一个文本文件。
打开一个文件需要两步:首先是 AssignFile(),它可以将文件变量与一个文件关联起来。例如:这时,你可以进行第二步:打开文件。有三种方式打开文件:使用R e w r i t e ( )过程创建并打开文件;对于一个已存在的文件,此操作将使文件被覆盖;使用R e s e t ( )过程只读地打开一个文件;使用Append() 过程向已存在的文件追加文本。
注意Reset()将以可读写方式打开类型文件和无类型文件。可以使用CloseFile()来关闭一个已打开的文件。
本文转载于:http://blog.csdn.net/biku/article/details/1515479
下面是各种调用的函数:
文件的打开与关闭:
AssignFile:把一个外部文件名和一个文件变量相关联
Reset:打开一个存在的文件
Rewrite:创建并打开一个新文件(或覆盖原有文件)
Append :以添加方式打开一个文件(只适用于文本文件)
CloseFile:关闭一个打开的文件
FileOpen:打开一个特定的文件并返回文件句柄
FileCreate:创建一个给定文件名的文件并返回文件句柄
FileClose:关闭一个特定句柄的文件
后边三个文件主要供系统内部使用,在文件复制的编程中也往往会用到。它们操作的对象是文件句柄而不是文件变量。
文件定位:
Seek:把文件当前位置移到指定部分
FilePos:返回文件的当前位置
Eoln:返回行结束标志
EOF:返回文件结束标志
FileSeek:改变当前文件指针的位置
http://www.cnblogs.com/taomaomao/archive/2012/03/14/2395664.html
最新文章
- iOS 2D绘图 (Quartz2D)之Transform(CTM,Translate,Rotate,scale)
- C/C++函数调用的几种方式及函数名修饰规则以及c++为什么不允许重载仅返回类型不同的函数
- grep与egrep
- Codeforces Round #318 [RussianCodeCup Thanks-Round] (Div. 2) B. Bear and Three Musketeers 枚举
- 【Better Code】repeat
- Asp.net MVC 处理文件的上传下载
- kendo ui中grid页面参数问题
- 基于AdaBoost的人脸检测
- ios2048小游戏
- lombook安装以及在eclipse和idea上配置
- vBox Arch UEFI LVM安装
- ACM-ICPC 2018 南京赛区网络预赛 J题Sum(线性筛素数)
- Zabbix3.2监控Windows的内存使用百分比并在内存使用率超过85%的时候触发报警
- 搭建SpringBoot+dubbo+zookeeper+maven框架(一)
- 云计算背后的秘密:NoSQL诞生的原因和优缺点
- urbuntu12.04 ftp服务器搭建
- MyBatis——日志
- angular1的 伪MVC
- 服务器或普通PC裸机安装 ESXI6.5
- SSIS实践入门1:我的第一个SSIS程序开发
热门文章
- 【13.91%】【codeforces 593D】Happy Tree Party
- windows 系统本地做mysql 主从同步,最后面解决主从同步库名不一致,表结构一致
- Hadoop和RDBMS的混合系统介绍
- win10 uwp 使用 msbuild 命令行编译 UWP 程序
- 《深入浅出WPF》笔记——模板篇
- poi读取xlsx
- WPF-- 合并资源字典
- 使用XCA(X Certificate and key management)可视化项目经理SSL 凭证(4)--凭借自身的凭证管理中心的定义(Certificate Authority)签名证书申请
- 由Maximum Gap,对话桶排序,基数排序和统计排序
- Python实例讲解 -- 获取本地时间日期(日期计算)