如何用richedit读取数据库中的rtf文件。

解决方案 »

  1.   

    richedit.stringLists.loadfromfile("1.rtf");
      

  2.   

    我是想读取一个access数据库中的某个rtf字段,有什么办法吗
      

  3.   

    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;
      

  4.   

    读到 RichEdit1
    RichEdit1.Lines.assign(TBlobField(FieldByName('Information')));保存
    TBlobField(FieldByName('Information')).savetofile('c:\abc.rtf');
      

  5.   

    读到 RichEdit1
    RichEdit1.Lines.assign(TBlobField(Table1.FieldByName('字段名称')));保存为文件
    TBlobField(Table1.FieldByName('字段名称')).savetofile('文件名');