如何对一个RichEdit查询，并把查询出来的结果放到另一个RichEdit里，
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 ......