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()来关闭一个已打开的文件。
    

下面是各种调用的函数:
    
    文件的打开与关闭:
     AssignFile:把一个外部文件名和一个文件变量相关联
     Reset:打开一个存在的文件
     Rewrite:创建并打开一个新文件(或覆盖原有文件)
     Append :以添加方式打开一个文件(只适用于文本文件)
     CloseFile:关闭一个打开的文件
     FileOpen:打开一个特定的文件并返回文件句柄
     FileCreate:创建一个给定文件名的文件并返回文件句柄
     FileClose:关闭一个特定句柄的文件
     后边三个文件主要供系统内部使用,在文件复制的编程中也往往会用到。它们操作的对象是文件句柄而不是文件变量。
    
    文件定位:
     Seek:把文件当前位置移到指定部分
     FilePos:返回文件的当前位置
     Eoln:返回行结束标志
     EOF:返回文件结束标志
     FileSeek:改变当前文件指针的位置

 本文转载于:http://blog.csdn.net/biku/article/details/1515479  

相关阅读 >>

Delphi获取进程快照(snapshot)

Delphi将字符串转换成utf8编码的函数

Delphi unigui 获取files路径

Delphi 获取/设置桌面窗口样式的Delphi代码

Delphi firemonkey app 如何获得当前系统语言设置

Delphi下遍历文件夹下所有文件的递归算法

Delphi idhttpserver的使用方法

Delphi 操作系统时间与web标准时间校正

Delphi屏蔽win、ctrl_esc、alt_tab、alt_f4等键(windows xp、windows 2003 server下测试通过)

Delphi 方便的文本文件操作(text)

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    正在狠努力加载,请稍候...