如何对数据流 INSERT、APPEND

　　假如不是第一次初始化的话。因此，有必要对多段数据流的整合操作做一些有利的约束。如增加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过程当中，仅仅只是把新来的流加到最前面，而没有考虑在任何位置的插入问题，假如要对任何条件都满足的话，就要考虑一个复杂的前提：流的分解。由于篇幅有限，本文不再叙述，有爱好的朋友可试一试。

right">（出处：清风软件下载学院）