delphi读写文本文件

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:改变当前文件指针的位置

Delphi是一种编程语言和集成开发环境,它提供了读写XML文件的功能。在Delphi中,可以使用TXMLDocument组件来处理XML文件。 要读取XML文件,首先需要在代码中创建TXMLDocument对象,并通过其LoadFromFile方法将XML文件加载到内存中。加载完成后,可以通过访问TXMLDocument对象的DocumentElement属性来获取XML文件的根元素。使用DocumentElement属性返回的是一个IXMLNode接口类型的对象,可以通过其子节点和属性来访问XML文件中的数据。 对于写入XML文件,同样需要创建TXMLDocument对象,并通过其LoadFromFile方法加载或创建一个XML文件。然后,可以通过代码中的赋值或添加子节点的方式来设置XML文档的结构和数据。最后,使用TXMLDocument对象的SaveToFile方法将修改后的XML文档保存到磁盘上。 在读写XML文件时,可能还需要使用到IXMLNode接口的其他方法和属性。例如,使用ChildNodes属性可以获取当前节点的所有子节点,使用Attributes属性可以获取当前节点的所有属性,使用Text属性可以获取或设置当前节点的文本内容。 除了基本的读写功能,Delphi还提供了其他用于处理XML的组件和库函数。例如,可以使用XPath来定位XML文件中的节点,使用XSLT进行XML数据的转换,使用XMLDataBinding创建与XML结构对应的对象模型等等。 总的来说,Delphi提供了丰富和方便的功能来读写XML文件,使开发人员可以轻松地处理XML数据。无论是对于简单的XML文件操作还是复杂的XML数据处理,都可以通过Delphi的强大的XML处理功能来实现。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值