Delphi的组件读写机制.docx

给你转贴一文，希望对你有帮助。

Delphi的组件读写机制

一、流式对象(Stream)和读写对象（Filer）的介绍

在面向对象程序设计中，对象式数据管理占有很重要的地位。在Delphi中，对对象式数据管理的支持方式是其一大特色。

Delphi是一个面向对象的可视化设计与面向对象的语言相结合的集成开发环境。Delphi的核心是组件。组件是对象的一种。Delphi应用程序完全是由组件来构造的，因此开发高性能的Delphi应用程序必然会涉及对象式数据管理技术。

对象式数据管理包括两方面的内容：

用对象来管理数据

对各类数据对象（包括对象和组件）的管理

Delphi将对象式数据管理类归结为Stream对象(Stream)和Filer对象(Filer)，并将它们应用于可视组件类库（VCL）的方方面面。它们提供了丰富的在内存、外存和Windows资源中管理对象的功能，

Stream对象，又称流式对象，是 TStream、THandleStream、TFileStream、TMemoryStream、TResourceStream和TBlobStream等的统称。它们分别代表了在各种媒介上存储数据的能力，它们将各种数据类型(包括对象和组件)在内存、外存和数据库字段中的管理操作抽象为对象方法，并且充分利用了面向对象技术的优点，应用程序可以相当容易地在各种Stream对象中拷贝数据。读写对象（Filer）包括TFiler对象、TReader对象和TWriter对象。TFiler对象是文件读写的基础对象，在应用程序中使用的主要是 TReader和TWriter。TReader和TWriter对象都直接从TFiler对象继承。TFiler对象定义了Filer对象的基本属性和方法。

Filer对象主要完成两大功能：

存取窗体文件和窗体文件中的组件

提供数据缓冲，加快数据读写操作

为了对流式对象和读写对象有一个感性的认识，先来看一个例子。

写文件

procedureTFomr1.WriteData(Sender:TObject);r;Var

FileStream:TFilestream;Mywriter:TWriter;

i:integerBegin

FileStream:=TFilestream.create(‘c:Test.txt’,fmopenwrite);//创建文件流对象

Mywriter:=TWriter.create(FileStream,1024); //把Mywriter和FileStream联系起来

Mywriter.writelistbegin; //写入列表开始标志Fori:=0toMemo1.lines.count-1do

Mywriter.writestring(memo1.lines［i］); //保存Memo组件中文本信息到文件中

Mywriter.writelistend; //写入列表结束标志FileStream.seek(0,sofrombeginning); //文件流对象指针移到流起始位置Mywriter.free;//释放Mywriter对象

FileStream.free;//释放FileStream对象

End;

读文件

procedureTForm1.ReadData(Sender:TObject);Var

FileStream:TFilestream;Myreader:TReader;Begin

FileStream:=TFilestream.create(‘c:Test.txt’,fmopenread);

Myreader:=TRreader.create(FileStream,1024);//把Myreader和FileStream联系起来

Myreader.readlistbegin; //把写入的列表开始标志读出来Memo1.lines.clear;//清除Memo1组件的文本内容

Whilenotmyreader.endoflistdo //注意TReader的一个方法:endoflist

Begin

Memo1.lines.add(myreader.readstring);//把读出的字符串加到Memo1组件中

End;

Myreader.readlistend; //把写入的列表结束标志读出来Myreader.free; //释放Myreader对象FileStream.free; //释放FileStream对象

End;

上面两个过程，一个为写过程，另一个为读过程。写过程通过TWriter，利用