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

现有两个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   ......