T
test01
Unregistered / Unconfirmed
GUEST, unregistred user!
在ACCESS数据库中建立一OLE字段。存放RTF格式的文档。
现通过“流”的方式提取所有已存的RTF文档并合并到一个“流”中。
代码如下:
procedure TForm1.Button3Click(Sender: TObject);
var
s1,s2 : TMemoryStream;
begin
s1 := TMemoryStream.Create;//读取每个记录存放的内容。
s2 := TMemoryStream.Create;//将每个记录合并到此。
with query1 do
begin
First;
while not eof do
begin
TBlobField(query1.FieldByName('公示文本')).SaveToStream(s1);
s2.LoadFromStream(s1);
query1.Next;
end;
end;
RichEdit1.Lines.LoadFromStream(s2);
end;
但很奇怪的是,S2的内容始终为该数据集第一条记录。
何解?我都快要疯掉了。:)。。。。。
现通过“流”的方式提取所有已存的RTF文档并合并到一个“流”中。
代码如下:
procedure TForm1.Button3Click(Sender: TObject);
var
s1,s2 : TMemoryStream;
begin
s1 := TMemoryStream.Create;//读取每个记录存放的内容。
s2 := TMemoryStream.Create;//将每个记录合并到此。
with query1 do
begin
First;
while not eof do
begin
TBlobField(query1.FieldByName('公示文本')).SaveToStream(s1);
s2.LoadFromStream(s1);
query1.Next;
end;
end;
RichEdit1.Lines.LoadFromStream(s2);
end;
但很奇怪的是,S2的内容始终为该数据集第一条记录。
何解?我都快要疯掉了。:)。。。。。