关于Memo中字符串的问题！

tibet 2000-06-12 09:03:00

我想通过Pos(chr(13),Memo1.Lines[IntRow])来获取任意一行回车符的位置，但是得到的值始终是0，为什么？不知哪位大侠另有高见，请指教！

...全文

219 7 打赏收藏转发到动态举报

写回复

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就是回车符的位置.

function SearchMemo(Memo: TCustomEdit; const SearchString: string; Options: TFindOptions): Boolean; var Buffer, P: PChar; Size: Word; begin Result := False; if Length(SearchString) = 0 then Exit; Size := Memo.GetTextLen; if (Size = 0) then Exit; Buffer := SysUtils.StrAlloc(Size + 1); try Memo.GetTextBuf(Buffer, Size + 1); if frDown in Options then P := SearchBuf(Buffer, Size, Memo.SelStart, Memo.SelLength,SearchString, [soDown]) else P := SearchBuf(Buffer, Size, Memo.SelStart, Memo.SelLength,SearchString, []);

Delphi 7.0 提取字符串中指定子字符串后的字符串，这个平时在字符处理时候使用几率也挺高的，获取指定字符串后面的字符串，比如获取扩展名等也可以用此方法，本例中要用到After函数，测试时，当单击按钮时，执行以下代码：　　procedure TForm1.Button1Click(Sender: TObject); 　　begin 　　 Edit3.Text := After(Edit2.Text,Edit1.Text); 　　end; 　　end.

这是早上传的发现有问题不能在Delphi Xe5中运行但能在Delphi7中运行我想删除它也没权限 http://download.csdn.net/detail/teststudio/6404077 所以重传下 Delphi TMemo字符串的查找完全实现已经完全的解决Delphi TMemo的查找对话框和替换对话框功能的所有功能查看 GIF http://images.cnblogs.com/cnblogs_com/xe2011/524919/o_TFindDialog.gif

本Delphi实例演示如何在字符串中使用单引号的方法，属于字符串处理的范畴，我们编写以下代码实现这个功能：　　begin 　　 //普通的SQL查询语句　　 SQL := 'Select * From MR_Login'; 　　 Memo1.Lines.Add(SQL); 　　 //带单引号的SQL查询语句　　 SQL := 'Select * From MR_Login Where Name = ''张三'' '; 　　 Memo1.Lines.Add(SQL); 　　 //带单引号的SQL查询语句　　 Name := '李四'; 　　 SQL := 'Select * From MR_Login Where Name = ''' Name ''''; 　　 Memo1.Lines.Add(SQL); 　　 //带单引号的SQL查询语句　　 Name := '王五'; 　　 SQL := 'Select * From MR_Login Where Name = ' QuotedStr(Name); 　　 Memo1.Lines.Add(SQL); 　　end;

生成如下字符串的例子： A字符串 50 字符串B A字符串 51 字符串B A字符串 52 字符串B A字符串 53 字符串B A字符串 54 字符串B A字符串 55 字符串B

5,386

社区成员

262,729

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章