寻找memo中的指定内容，并显示在edit中？？

Question

在memo中有如下内容   
#       student       data       file                   Name=黎明   
                age=21   
                high=176.5   
                weight=70                   Name=李刚   
                    age=27   
                high=166.5   
                weight=65   我想用寻找的方法（不是定位）   
来找第二个   "age=   "并把它后面的内容并且显示到edit1中   谢谢大家，这个好像很难。 

Answer 1

如果这个有规律，那么先按照规律来将他们分开后，再单独pos就容易多了，如果不固定格式，只能一个一个的pos

Answer 2

很简单啊，查找第n个'age='之后的内容。
procedure FindStr(n :Integer);
var i,P,k :Integer;
begin
 k :=0;
 for i :=0 to Memo.Lines.Count-1 do
 begin
  P :=Pos('age=',Memo.Lines[i]);
  if P > 0 then
  begin
   Inc(k);
   if k = n then
   begin
    Edit1.Text :=Copy(Memo.Lines[i],P,Length(Memo.Lines[i])-P+1);
    break;
   end;
  end;
 end;
end;