怎么取这网页源码里的两个数值

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>记录title>
<style type="text/css">
td{font-family:verdana;font-size:12px}
.b1{}
.b2{BACKGROUND: #ff7300}
</style>
</head>
<body><table cellpadding="2" cellspacing="0">  <tr class="b1" id=m1 onmouseout="m1.className='b1'" onmouseover="m1.className='b2'">
<td>155.49</td>
<td>|156.29</td>
<td>|2006-11-2 15:15:41</td>
  </tr>  <tr class="b1" id=m2 onmouseout="m2.className='b1'" onmouseover="m2.className='b2'">
<td>155.49</td>
<td>|156.29</td>
<td>|2006-11-2 15:15:07</td>
  </tr>  <tr class="b1" id=m3 onmouseout="m3.className='b1'" onmouseover="m3.className='b2'">
<td>155.49</td>
<td>|156.29</td>
<td>|2006-11-2 15:14:34</td>
  </tr>  <tr class="b1" id=m4 onmouseout="m4.className='b1'" onmouseover="m4.className='b2'">
<td>155.51</td>
<td>|156.31</td>
<td>|2006-11-2 15:14:00</td>
  </tr>
只取第一个
<td>155.49</td>
<td>|156.29</td>
里的数值，这数是时实变化的，不过位置不变，总是第一个？？怎么做呢，我刚学的，想了几天也没想出来，呵呵～～～

解决方案 »

  1.   

    var
      I: Integer;
      J: Integer;
    begin
      with TStringList.Create do try
        Text := IdHTTP1.Get('http://xxx.xxx.com');
        J := 0;
        for I := 0 to Count - 1 do
        begin
          if Pos('<td>', Strings[I]) > 0 then
          begin
            ShowMessage(Strings[I]);
            Inc(J);
            if J >= 2 then Break;
          end;
        end;
      finally
        Free;
      end;
    end;
      

  2.   

    谢谢，可以用的
    我只要那两个数字，不要<td>这东西，然后把数显示在编辑框中,
    我试了一下，不会改，不明白Count - 1和Strings[I]) 是哪来的，也没定义啊，这俩是做什么 的，
      

  3.   

    好了，我把两个数分开到两个编辑框中了，可是数字两边的<td>不知道要怎么去掉？？
    <td>155.49</td>
    <td>|156.29</td>
      

  4.   

    <td>155.49</td>
    把这个看作一个字符串 既然每次的格式都一样 那么你直接把这个字串的前面四个和后面五个delete掉就可以得到你想要的数字了