社区
Delphi
帖子详情
关于Memo中字符串的问题!
tibet
2000-06-12 09:03:00
我想通过Pos(chr(13),Memo1.Lines[IntRow])来获取任意一行回车符的位置,但是得到的值始终是0,为什么?不知哪位大侠另有高见,请指教!
...全文
218
7
打赏
收藏
关于Memo中字符串的问题!
我想通过Pos(chr(13),Memo1.Lines[IntRow])来获取任意一行回车符的位置,但是得到的值始终是0,为什么?不知哪位大侠另有高见,请指教!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
7 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
LaoZheng
2000-06-22
打赏
举报
回复
获取任意一行回车符的位置=length(memo1.lines[introw])
7030
2000-06-22
打赏
举报
回复
我用的是如下方法,就不会为0了:
pos('#$D#$A',memo1.lines[introw])
H999
2000-06-21
打赏
举报
回复
Pos(chr(13),Memo1.Lines[IntRow])为0,
是因为Memo1.Lines[IntRow]中本来就没有chr(13).
Memo1.Lines 属于 Tstrings 类,
而每一行strings[row]中,不可能有chr(13),
因为chr(13),是它的行结束标志之一。
memo1.lines[row]是没有chr(13)的。
pos(chr(13),memo1.text)能找到#13的位置.
用stream也可以。
fzm2000
2000-06-21
打赏
举报
回复
zyc说得对,另外还可以用Stream实现。
ocean_boy
2000-06-13
打赏
举报
回复
得到值为0的原因是没有找到,应该用这条语句Pos(chr(#13),Memo1.Lines[IntRow])
hhzh426
2000-06-13
打赏
举报
回复
用pos(chr(13),memo1.text)可以得到memo1中的换行符,memo中并没有所谓的软回车,每输入一个回车符就表示增加一段,也就是lines.count加1
zyc
2000-06-12
打赏
举报
回复
我不知道你要找回车符来干吗. 在Delphi中, 碰到回车符就认为是换行, 所以你以取出一行的办法, 取也的字符串中是不包含回车符的, 也就你写的语句返回值为0的原因.
其实, 要知道Memo中的回车符的位置不难, 有几种办法可行:
1.将整个的memo作为一个字串来看待, 然后再在里面查找回车就可以啦.
2.每一行行的长度加2就是回车符的位置.
在
memo
中
查找
字符串
function Search
Memo
(
Memo
: TCustomEdit; const SearchString: string; Options: TFindOptions): Boolean; var Buffer, P: PChar; Size: Word; begin Result := False; if Length(SearchString) = 0 then ...
Delphi 7.0 After提取
字符串
中
指定子
字符串
后的
字符串
.rar
Delphi 7.0 提取
字符串
中
指定子
字符串
后的
字符串
,这个平时在字符处理时候使用几率也挺高的,获取指定
字符串
后面的
字符串
,比如获取扩展名等也可以用此方法,本例
中
要用到After函数,测试时,当单击按钮时,执行以下...
Delphi T
Memo
字符串
的查找完全实现
这是早上传的发现有
问题
不能在Delphi Xe5
中
运行 但能在Delphi7
中
运行 我想删除它也没权限 http://download.csdn.net/detail/teststudio/6404077 所以重传下 Delphi T
Memo
字符串
的查找完全实现 已经完全的解决...
Delphi 在
字符串
中
使用单引号.rar
本Delphi实例演示如何在
字符串
中
使用单引号的方法,属于
字符串
处理的范畴,我们编写以下代码实现这个功能: begin //普通的SQL查询语句 SQL := 'Select * From MR_Login';
Memo
1.Lines.Add(SQL); //带单...
字符串
工具(内附源程序)
生成如下
字符串
的例子: A
字符串
50
字符串
B A
字符串
51
字符串
B A
字符串
52
字符串
B A
字符串
53
字符串
B A
字符串
54
字符串
B A
字符串
55
字符串
B
Delphi
5,386
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章