DBMemo用空格符代替换行符

grjs2004 2006-12-30 10:55:26
问题如题!
现在是用手工进行操作,所以比较麻烦!
要怎么设置,请不吝赐教!
谢谢!
...全文
193 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
yi10000 2006-12-30
  • 打赏
  • 举报
回复
来晚了,顶...
lihuasoft 2006-12-30
  • 打赏
  • 举报
回复
哦,没看明白楼主意图...我道是呢..
老冯 2006-12-30
  • 打赏
  • 举报
回复
呵呵,小鹄子真是快、准、狠。
王集鹄 2006-12-30
  • 打赏
  • 举报
回复
procedure TForm1.Table1YouFieldGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
begin
Text := StringReplace(Text, #13#10, #32, [rfReplaceAll]);
end;
lihuasoft 2006-12-30
  • 打赏
  • 举报
回复
procedure TForm1.DBMemoKeyPress(Sender: TObject; var Key: Char);
begin
if Key = Char(' ') then
Key := #13;
end;
lihuasoft 2006-12-30
  • 打赏
  • 举报
回复
哦,说错了,没换行+回车
lihuasoft 2006-12-30
  • 打赏
  • 举报
回复
可能是因为你没的找到Table1YouFieldGetText事件是吧;
或者,你的字段里根本就没有空格
grjs2004 2006-12-30
  • 打赏
  • 举报
回复
zswang(伴水清清)(专家门诊清洁工):
我试过了,但是还是不行!
不知道是我用错了,还是真的不能替换!

我是想对数据库的一个字段进行换行符替换,
比如:DBMemo.Lines.add(...);//一行一行的添加数据
DBMemo指向字段A1,

就是希望能把DBMemo的换行符替换成空格符

该怎么用才可以达到目的!
还请用一个具体的例子说明一下!谢谢!

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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