请问一个数据库MEMO字段读取的问题请各位高手帮忙！(200分)

我用Rxrichedit组件写一段程序想把数据库中的MEMO字段逐条读出并存到一个文件之中并希望是以格式化的样式存储，以下是我的一段代码，我用Assign命令但后面的总是覆盖前面的，用别的命令又无法读bolb字段，而且我想区分文本和图象，非常着急，望各位高手指点。
while tx=dm1.table_paper.fieldbyname('tx').value do
begin
myrichedit.lines.add(inttostr(number)+'、'+'('+dm1.table_paper.fieldbyname('fz').asstring+')');
myrichedit.lines.Assign(tblobfield(dm1.table_paper.FieldByName('as')));
number:=number+1;
dm1.table_paper.next;
end;
end;
myrichedit.lines.savetofile('answer1.rft');

创建一个链表来存，链表的每个节点是TMemoryStream类型的对象，用来保存Memo字段的内容。

我不知道tanglu的方法怎么实现,希望给我一些代码提示.十分感谢!

很简单
使用delphi中的DBrichedit可以了

不要每次都“assign”

>>

多人接受答案了。