delphi中richedit中增加字段到数据库，为什么会被强行截取？

shanneng2001 2010-10-21 06:34:59

我要在richedit里插入一下文字。当文字大概超过几十个字的时候就会强行被截断。其中redtgj.Text是richedit.
with dm1.adoqrygj do
begin
close;
sql.Clear;
sql.Add('insert ypgj (gm,pym,gj) value(:a,:b,:c);
parameters.ParamByName('a').Value := trim(edtgm.text);
parameters.ParamByName('b').Value := trim(edtpym.text);
parameters.ParamByName('c').Value := trim(redtgj.Text);
execsql;
end；
目前本人的解决办法有两个，一个是将trichedit控件换成tmemo,
parameters.ParamByName('c').Value := trim(memo1.Text);
另外一个方法就是将parameters.ParamByName('a').size := 256；
但我就是不明白，为什么tmemo里没有问题，而trichedit确会强行截取它认为“多余”的文字？

...全文

140 4 打赏收藏转发到动态举报

写回复

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

kye_jufei 2010-10-22

打赏
举报

回复

可以這樣試試，用流方式存取。。。
保存：

var

  Str: string;

  temStream: TMemoryStream;

begin

  temStream := TMemoryStream.Create;

  RichEdit1.Lines.SaveToStream(temStream);

  str := 'select * from Table1';

  AdoQuery1.Close;

  AdoQuery1.SQL.Clear;

  AdoQuery1.SQL.Add(str);

  AdoQuery1.Open;

  AdoQuery1.Append;

  AdoQuery1.FieldByName('ID').AsInteger:= 3;

  TBlobField(AdoQuery1.FieldByName('RichEditText')).LoadFromStream(temStream);

  AdoQuery1.Post;

  temStream.Free;

读取:

var

  Str: string;

  temStream: TMemoryStream;

begin

  temStream := TMemoryStream.Create;

  str := 'select * from Table1 ';

  AdoQuery1.Close;

  AdoQuery1.SQL.Clear;

  AdoQuery1.SQL.Add(str);

  AdoQuery1.Open;

  TBlobField(AdoQuery1.FieldByName('RichEditText')).SaveToStream(temStream);

  temStream.Seek(0,0);

  RichEdit1.Lines.LoadFromStream(temStream);

  temStream.Free;

bdmh 2010-10-21

打赏
举报

回复

richedit是带格式的，和memo不一样

shanneng2001 2010-10-21

打赏
举报

回复

how to test?

billy145533 2010-10-21

打赏
举报

回复

请测试memo1.Text和redtgj.Text的长度是否相同
可能是parameters在设置size前无法容纳redtgj.Text中的数据

这里为读者提供一些实用的开发技巧和某些常见问题的解决途径。很多程序设计人员都有这样的体会，那就是往往自己冥思苦想某个问题的时候，旁人的一句点拨就可以拨云见日，灵感突现。因此下面以FAQ的形式列举了在开发过程中可能会遇到的问题，以飨读者。 1.1 关于Delphi的BDEDelphi操作数据库主要是利用BDE来进行。BDE是基于32位Windows内核的数据库引擎和连接工具，支持...

delphi 中 TreeView的用法(转) [ 2007-11-20 9:25:00 | By: 花椒 ] 0推荐一：TreeView.Items[0].Expanded := True; // 展开第一个节点二：TreeView.Items[0].Item[0].Selected := True; // 移动到第一个节点的第一个子节点找当前节点的下一个节点，按序号找如下：

这里为读者提供一些实用的开发技巧和某些常见问题的解决途径。很多程序设计人员都有这样的体会，那就是往往自己冥思苦想某个问题的时候，旁人的一句点拨就可以拨云见日，灵感突现。因此下面以FAQ的形式列举了在开发过程中可能会遇到的问题，以飨读者。 1.1 关于Delphi的BDE Delphi操作数据库主要是利用BDE来进行。BDE是基于32位Windows...

前八章目录:第一部分基础第1章 Delphi7及其IDE Delphi的版本 IDE概述 Delphi编辑器窗体设计器组件面板的秘密管理项目附加及外部Delphif具系统生成的文件对象库 Delphi 7中调试器的更新小结第2章 Delphi编程语言核心语言特性类与对象

· 日月光华精华区文章阅读发信人: Delphii (Delphi), 信区: VCL标题: Delphi编码规则发信站: 日月光华站 (Fri Sep 7 12:03:07 2001) , 站内信件 Delphi代码编写标准指南■■■■■■■■■■■■■■■■■■■■■■■■目录■■■■■■■■■■■■■■■■■■■■■■■■一、序言二、通用源代码格式规则2.1 缩格2.2 页

数据库相关

2,499

社区成员

88,444

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章