delphi读写文本文件

最新推荐文章于 2020-04-23 19:30:56 发布

hhhhhhh_____

最新推荐文章于 2020-04-23 19:30:56 发布

阅读量1.4k

点赞数 1

分类专栏： delphi

本文链接：https://blog.csdn.net/qq_21747999/article/details/79151788

版权

delphi 专栏收录该内容

2 篇文章 0 订阅

订阅专栏

procedureTForm1.Button1Click(Sender: TObject); //写文件

var wText:TextFile;
begin
AssignFile(wText, 'ip.txt');
Rewrite(wText);//创建文件，或者使用ReSet打开文件
Writeln(wText, richedit1.text);
CloseFile(wText);
end;

procedureTForm1.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 ew 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：改变当前文件指针的位置