如何读取特定字符串所在的行？

Question

把一网页文件读入
memo中我想读取<title>所在的行
如下：
str＝'<title>xxxx</title>'
把<title>所在行的字符串读入一个字符串变量中
－－－－－－－－－－－－－－－－－－－－－－－
我该怎么办（如果可以不memo那更好）

Answer 1

var
  i: Integer;
  str: string;
begin
  str := '';
  for i := 0 to Memo1.Lines.Count-1 do
    if Pos('<title>', LowerCase(Memo1.Lines[i])) > 0 then begin
      str := Memo1.Lines[i];
      Break;
    end;
end;

Answer 2

同意： sysu(死树)
先试试。
有问题请发信息到我的E-mail:[email protected]

Answer 3

已经ok了
－－－－－－－－－－－－－－－－－－谢谢   sysu(死树)