如何用richedit读取数据库中的rtf文件。 [问题点数：100分，结帖人shanlin]
|
|
|
|
|
|
|
用流来读取
|
|
|
|
您有例子吗？
|
|
|
|
richedit.stringLists.loadfromfile("1.rtf");
|
|
|
|
mark
|
|
|
|
doc
|
|
|
|
我是想读取一个access数据库中的某个rtf字段，有什么办法吗
|
|
|
|
难到就没有会的了吗
|
|
|
|
Var
MemStrm: TMemoryStream; begin //读取Rich文本 MemStrm := TMemoryStream.Create; Try //假式字段为'Information' TBlobField(FieldByName('Information')).SaveToStream(MemStrm); MemStrm.Position := 0; RichEdit1.Lines.LoadFromStream(MemStrm); Finally MemStrm.Free; End; end; |
|
|
|
如果要保存的源程序,再开个贴,呵呵
|
|
|
|
读到 RichEdit1
RichEdit1.Lines.assign(TBlobField(FieldByName('Information'))); 保存 TBlobField(FieldByName('Information')).savetofile('c:\abc.rtf'); |
|
|
|
读到 RichEdit1
RichEdit1.Lines.assign(TBlobField(Table1.FieldByName('字段名称'))); 保存为文件 TBlobField(Table1.FieldByName('字段名称')).savetofile('文件名'); |
|
|
关闭