推荐订阅源

  TStringList *StrLst;
  StrLst=   new TStringList();
  StrLst->LoadFromFile("D:\\PanelTest\\071900007");     //找到原文件
  String Str_temp;
  for (int i = 0; i <= 1000; i++)
  {
  StrLst->Strings[i];

  if(Pos(UpperCase("Pass"),UpperCase(StrLst->Strings[i])) != 0 )
    {
   //    ShowMessage( StrLst->Strings[i] + "在"+ i + "行");

     Str_temp= StrLst->Strings[i];                   //找到所要解析的行數
   break;
    }
   }
   TStringList *StrLst1=   new TStringList();
   StrLst1->Delimiter='\t' ;                    //分隔符
   StrLst1->DelimitedText = Str_temp;           //要分割的字符串
   String Str1= StrLst1->Strings[0] ;           //取出分割好的字符串
   String Str2= StrLst1->Strings[1] ;