下载本文示例代码
p align="JUSTIFY"> 如果不是第一次初始化的话。因此，有必要对多段数据流的整合操作做一些有利的约束。如增加INSERT(插入)、 APPEND(追加)之类的方法。从TStream的定义及其派生子类我们得知，CopyFrom是唯一可以加以利用的公用函数，它从指定的流上拷贝指定数量的字节后返回一长整型值，该值代表最后成功传送的实际字节数。其后，我们用Seek函数来避免数据流之间的相互覆盖，并以此来界定后来者加入的位置。在SEEK函数的定义中，第一个参数为偏移量，第二个参数是个定位标识，其定义如下：
soFromBeginning表示在流的顶头开始位移，第一个参数必须 $#@62;=0.
soFromCurrent表示从当前位置开始位移。
soFromEnd表示从流的最后开始位移，第一个参数必须$#@60;= 0.
SEEK操作成功后，由Position属性存放流当前的位置值。Size属性是该流到目前为止的长度。
具体操作见以下范例：
unit DemoUnit;
...
type
TForm1 = class(TForm)
...
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
// 建立一个演示内存流
STO : TMemoryStream;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
...
Try
//创建内存流的对象
STO := TMemoryStream.Create;
Finally
...
end;
...
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
...
//初始化内存流对象，并移动指针到头部
STO.LoadFromFile( OpenDialog1.FileName );
STO.Seek( 0, soFromBeginning );
//把调入的东西显示出来
Memo1.Lines.LoadFromStream( STO );
...
end;
//以下的工作必须在内存流初始化后方能进行
//插入演示
procedure TForm1.Button2Click(Sender: TObject);
Var
SWA : TMemoryStream; //定义一个临时内存流
begin
...
//创建临时工作的对象
SWA := TMemoryStream.Create;
//加载要插入的目标
SWA.LoadFromFile( OpenDialog1.FileName );
//移动演示流的指针到头部，准备交换
STO.Seek( 0, soFromBeginning );
//移动临时流的指针到尾部，接收演示流
SWA.Seek( 0, soFromEnd );
SWA.CopyFrom( STO, STO.Size );
//把演示流换成新的内容
STO.LoadFromStream( SWA );
STO.Seek( 0, soFromBeginning );
//把插入后的内容显示出来
Memo1.Lines.LoadFromStream( STO );
...
end;
//追加演示
procedure TForm1.Button3Click(Sender: TObject);
Var
SWA : TMemoryStream;//定义一个临时内存流
begin
...
//创建临时工作的对象并加载要追加的目标
SWA := TMemoryStream.Create;
SWA.LoadFromFile( OpenDialog1.FileName );
//移动演示流的指针到尾部，接收临时流
STO.Seek( 0, soFromEnd );
SWA.Seek( 0, soFromBeginning );
//拷贝，移动指针后显示
STO.CopyFrom( SWA, SWA.Size );
STO.Seek( 0, soFromBeginning );
Memo1.Lines.LoadFromStream( STO );
...
end;
....
在Insert过程当中，仅仅只是把新来的流加到最前面，而没有考虑在任何位置的插入问题，如果要对任何条件都满足的话，就要考虑一个复杂的前提：流的分解。由于篇幅有限，本文不再叙述，有兴趣的朋友可试一试。
p align="JUSTIFY"> 如果不是第一次初始化的话。因此，有必要对多段数据流的整合操作做一些有利的约束。如增加INSERT(插入)、 APPEND(追加)之类的方法。从TStream的定义及其派生子类我们得知，CopyFrom是唯一可以加以利用的公用函数，它从指定的流上拷贝指定数量的字节后返回一长整型值，该值代表最后成功传送的实际字节数。其后，我们用Seek函数来避免数据流之间的相互覆盖，并以此来界定后来者加入的位置。在SEEK函数的定义中，第一个参数为偏移量，第二个参数是个定位标识，其定义如下：
soFromBeginning表示在流的顶头开始位移，第一个参数必须 $#@62;=0.
soFromCurrent表示从当前位置开始位移。
soFromEnd表示从流的最后开始位移，第一个参数必须$#@60;= 0.
SEEK操作成功后，由Position属性存放流当前的位置值。Size属性是该流到目前为止的长度。
具体操作见以下范例：
unit DemoUnit;
...
type
TForm1 = class(TForm)
...
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
// 建立一个演示内存流
STO : TMemoryStream;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
...
Try
//创建内存流的对象
STO := TMemoryStream.Create;
Finally
...
end;
...
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
...
//初始化内存流对象，并移动指针到头部
STO.LoadFromFile( OpenDialog1.FileName );
STO.Seek( 0, soFromBeginning );
//把调入的东西显示出来
Memo1.Lines.LoadFromStream( STO );
...
end;
//以下的工作必须在内存流初始化后方能进行
//插入演示
procedure TForm1.Button2Click(Sender: TObject);
Var
SWA : TMemoryStream; //定义一个临时内存流
begin
...
//创建临时工作的对象
SWA := TMemoryStream.Create;
//加载要插入的目标
SWA.LoadFromFile( OpenDialog1.FileName );
//移动演示流的指针到头部，准备交换
STO.Seek( 0, soFromBeginning );
//移动临时流的指针到尾部，接收演示流
SWA.Seek( 0, soFromEnd );
SWA.CopyFrom( STO, STO.Size );
//把演示流换成新的内容
STO.LoadFromStream( SWA );
STO.Seek( 0, soFromBeginning );
//把插入后的内容显示出来
Memo1.Lines.LoadFromStream( STO );
...
end;
//追加演示
procedure TForm1.Button3Click(Sender: TObject);
Var
SWA : TMemoryStream;//定义一个临时内存流
begin
...
//创建临时工作的对象并加载要追加的目标
SWA := TMemoryStream.Create;
SWA.LoadFromFile( OpenDialog1.FileName );
//移动演示流的指针到尾部，接收临时流
STO.Seek( 0, soFromEnd );
SWA.Seek( 0, soFromBeginning );
//拷贝，移动指针后显示
STO.CopyFrom( SWA, SWA.Size );
STO.Seek( 0, soFromBeginning );
Memo1.Lines.LoadFromStream( STO );
...
end;
....
在Insert过程当中，仅仅只是把新来的流加到最前面，而没有考虑在任何位置的插入问题，如果要对任何条件都满足的话，就要考虑一个复杂的前提：流的分解。由于篇幅有限，本文不再叙述，有兴趣的朋友可试一试。
下载本文示例代码
如何对数据流 INSERT、APPEND如何对数据流 INSERT、APPEND如何对数据流 INSERT、APPEND如何对数据流 INSERT、APPEND如何对数据流 INSERT、APPEND如何对数据流 INSERT、APPEND如何对数据流 INSERT、APPEND如何对数据流 INSERT、APPEND如何对数据流 INSERT、APPEND如何对数据流 INSERT、APPEND如何对数据流 INSERT、APPEND如何对数据流 INSERT、APPEND如何对数据流 INSERT、APPEND如何对数据流 INSERT、APPEND如何对数据流 INSERT、APPEND
阅读(180) | 评论(0) | 转发(0) |
