如何对数据流计划

如果不是第一次初始化的话。因此，有必要对多段数据流的整合操作做一些有利的约束。如增加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 rmCreate(Sender: TObject);

begin

...

Try

//创建内存流的对象

STO := eate;

Finally

...

end;

...

end;

procedure tton1Click(Sender: TObject);

begin

...

//初始化内存流对象，并移动指针到头部

adFromFile( leName );

ek( 0, soFromBeginning );

//把调入的东西显示出来

adFromStream( STO );

...

end;

//以下的工作必须在内存流初始化后方能进行

//插入演示

procedure tton2Click(Sender: TObject);

Var

SWA : TMemoryStream; //定义一个临时内存流

begin

...

//创建临时工作的对象

SWA := eate;

//加载要插入的目标

adFromFile( leName );

//移动演示流的指针到头部，准备交换

ek( 0, soFromBeginning );

//移动临时流的指针到尾部，接收演示流

ek( 0, soFromEnd );

pyFrom( STO, ze );

//把演示流换成新的内容

adFromStream( SWA );

ek( 0, soFromBeginning );

//把插入后的内容显示出来

adFromStream( STO );

...

end;

//追加演示

procedure tton3Click(Sender: TObject);

Var

SWA : TMemoryStream;//定义一个临时内存流

begin

...

//创建临时工作的对象并加载要追加的目标

SWA := eate;

adFromFile( leName );

//移动演示流的指针到尾部，接收临时流

ek( 0, soFromEnd );

ek( 0, soFromBeginning );

//拷贝，移动指针后显示

pyFrom( SWA, ze );

ek( 0, soFromBeginning );

adFromStream( STO );

...

end;

....

在Insert过程当中，仅仅只是把新来的流加到最前面，而没有考虑在任何位置的插入问题，如果要对任何条件都满足的话，就要考虑一个复杂的前提：流的分解。由于篇幅有限，本文不再叙述，有兴趣的朋友可试一试。

查看本文来源

长春包皮过长治疗费用多少钱
昆明卵巢炎治疗费用
石家庄内分泌失调专科医院