读取小问题

Question

文本文挡内容为:
wo登陆时间:2009-6-29 16:39:59
wo退出时间:2009-6-29 16:40:00
ni登陆时间:2009-6-29 16:40:33
ni退出时间:2009-6-29 16:45:21
wo登陆时间:2009-6-29 16:46:54
wo退出时间:2009-6-29 16:48:18
我想选择性读取有edit1.text + '登陆时间:'的项.到ListView1.比如我在edit1.text内填写ni,在ListView1中就显示ni登陆时间:2009-6-29 16:40:33这条记录.
var
i:Integer;
list :TListItem;
strli:TStringList;
begin
      strli:=TStringList.Create;
      try
      strli.LoadFromFile(ExtractFilePath(Application.ExeName)+ '\'+ 'time.txt');
      for I := 0 to strli.Count - 1 do  begin
        if Pos(Edit1.Text +'登陆时间:',strli.Strings[i])>0 then begin
           list :=ListView1.Items.Add;
           list.Caption :=Trim(Copy(strli.Strings[i],Pos('登陆时间:',strli.Strings[i])+1,maxint));
        end;
      end;
      finally
        strli.Free;
      end;
   end;
达不到效果,麻烦帮查看修改下,谢谢.

Answer 1

      strli:=TStringList.Create;
      try
      strli.LoadFromFile('d:\time.txt');
      for I := 0 to strli.Count - 1 do  begin
        if Pos(Edit1.Text +'登陆时间:',strli.Strings[i])>0 then begin
          list :=ListView1.Items.Add;
          list.Caption :=strli[i];//Trim(Copy(strli.Strings[i],Pos('登陆时间:',strli.Strings[i])+1,maxint));
        end;
      end;
      finally
        strli.Free;
      end;