如何对一个RichEdit查询，并把查询出来的结果放到另一个RichEdit里，

最新推荐文章于 2018-06-14 09:13:20 发布

转载最新推荐文章于 2018-06-14 09:13:20 发布 · 180 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/delphi2007/archive/2009/02/11/1388369.html

文章标签：

#前端 #ViewUI

本文介绍使用Delphi实现对RichEdit控件内的文本进行查询的方法，并将查询结果展示在另一个RichEdit控件中。通过修改查询条件，可以灵活地搜索特定信息。

如何对一个RichEdit查询，并把查询出来的结果放到另一个RichEdit里， Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiBase/html/delphi_20061209085300216.html
现有两个RichEdit控件，richedit1里显示接收到的数据，每条数据用回车分开，现要实现对RichEdit1的查询，把查询后的结果，在RichEdit2里显示，求教各位高手了

问题中没说清楚查询的条件，怎么给你写查询？谈何结果？
不要“自己心里明”，要有“提问的艺术”。
----说得可能尖刻，望能接受。

我的是比如 ricdedit1 控件里有

001 姓名：张三年龄：20 性别：男备注： SOA 实践全攻略急聘web前端开发工程师 07年就业班级,追赶职场黄金期，热报！ .net专场招聘会12月10（北京）

002 姓名：李四年龄：21 性别：女备注： SOA 实践全攻略急聘web前端开发工程师 07年就业班级,追赶职场黄金期，热报！ .net专场招聘会12月10（北京）

003 姓名：王五年龄：20 性别：男备注： SOA 实践全攻略急聘web前端开发工程师 07年就业班级,追赶职场黄金期，热报！ .net专场招聘会12月10（北京）
///////////////

现要实现一个查询，比如查 “男”，则会把查询的结果在richedit2里显示，显示形式如下

//////////////

001 姓名：张三年龄：20 性别：男备注： SOA 实践全攻略急聘web前端开发工程师 07年就业班级,追赶职场黄金期，热报！ .net专场招聘会12月10（北京）

003 姓名：王五年龄：20 性别：男备注： SOA 实践全攻略急聘web前端开发工程师 07年就业班级,追赶职场黄金期，热报！ .net专场招聘会12月10（北京）

procedure TForm1.Button2Click(Sender: TObject);
var
I:integer;
begin
Edit1.Text:='男';//之所以要用 '性别：男' 作为查询条件，是因为防止姓名等其他位置有'男'字
for I := 0 to RichEdit1.Lines.Count-1 do
if pos('性别：'+Edit1.text,richedit1.Lines[I])>0 then
Richedit2.Lines.Add(Richedit1.Lines[I]);
end;
//好象RichEdit处理这样的数据并不是强项。

可以用grid一类的控件。不过可能你有特殊的需要。上面的代码可以实现你的需求。可以改写一下，根据不同的条件，改变('性别：'+Edit1.text)的值。如：用checkbox判断查询的是姓名，还是性别... 如要查询姓名，可以这样：
var SubStr:string;
.....
if checkboxXingMing.checked then SubStr:='姓名：'+Edit1.Text;
.....
if if pos(SubStr,richedit1.Lines[I])>0 then ......

转载于:https://www.cnblogs.com/delphi2007/archive/2009/02/11/1388369.html