如果想要把richedit里的文件存入到数据库中的两个问题(菜鸟送分)！

Question

1.在paradox里,该字段应该取什么类型2.为了能够保存格式,并且输出格式,应当怎么写存入与读取出来的代码,最好能给个实例!谢谢!

Answer 1

用Ole类型就可以
写数据库
var strm:TBlobStream;
begin
  Table1.Open;
  Table1.Insert;
  Table1.FieldByName('A').Value:=1;
  strm:=TBlobStream.Create(TBlobField(Table1.FieldByName('B')),bmWrite);
  RichEdit1.Lines.SaveToStream(strm);
  Table1.Post;
  strm.Free;
end;
读：
var strm:TBlobStream;
begin
  Table1.Open;
  strm:=TBlobStream.Create(TBlobField(Table1.FieldByName('B')),bmRead);
  RichEdit1.Lines.LoadFromStream(strm);
  strm.Free;
end;