var  ts:TStringList;
i : Integer; 
F: TextFile; 
S: string; 

 begin
  AssignFile(F,'文件的位置')
  Reset(F);  //只读打开
  while not Eof(F) do
  begin
    Readln(F, name, s);
    ts.append(s);
  end;
  CloseFile(F);
  
  for i=0 to ts.count-1 do
  begin
   if pos('bf',ts.string[i])>0
    begin
     showmessage('行数'+Inttostr(i));//得到符合条件的行数
    end;
  end;
 end;