文本中(RichEdit)特殊字符处理问题:我从word中拷入CO2(二氧化碳)到RichEdit,2是下标,在RichEdit中显示是正确的二氧化碳,经过保存后再掉出到RichEdit它就又显示成CO2没有下标了,这可能是数据库的问题,各位兄弟我要怎么解决啊,请帮忙!!!!
解决方案 »
- 文档框为空值时相乘出错
- [关于菜单的问题]今天在写程序的时候,偶然看到菜单可以从MNU导入
- 请问怎么根据循环语句生存变量.
- WebBrowser 填表单的问题想了一上午了....不解,求救!!
- 扯蛋的问题,关于 DBImage......???????
- 用ToolHelp32函数库为何无法列出进程的全文件名??
- 如何让win2000下的任务管理器失效?
- 数据库添加数据出现错误,菜鸟求救!!
- 求关于"注册表"的控件
- 在父窗体怎样画jpg格式的背景图?
- 既然Delphi8那么好,为什么还有那么多人在用D6和D7???
- 在insert和delete中系统提示打开数据集错误!(TADOQuery中:command text dose not returen a result set)
请考虑用BLOB字段处理。
RichEdit1.SaveToStream 取内容
以下代码可供参考procedure TForm1.BitBtn1Click(Sender: TObject);
var
Mem:TMemoryStream;
begin
Mem:=TMemoryStream.Create;
RichEdit1.Lines.SaveToStream(Mem);
AdoTable1.Edit;
ADOTable1RihcText.LoadFromStream(Mem);
AdoTable1.Post;
Mem.Free;
end;procedure TForm1.BitBtn2Click(Sender: TObject);
begin
ADOTable1RihcText.SaveToFile('C:\1.rtf');
RichEdit1.Lines.LoadFromFile('C:\1.rtf');
end;
end.
RichEdit1.PlainText:=False;
procedure TForm1.BitBtn2Click(Sender: TObject);
var
Mem:TMemoryStream;
begin
Mem:=TMemoryStream.Create;
ADOTable1RihcText.SaveToStream(Mem);
Mem.Position:=0;
RichEdit1.Lines.LoadFromStream(Mem);
Mem.Free;
end;