0

我正在执行读取多个远程 TXT 文件的过程。将像这样工作：我有一个 TStringList，其中包含 3 个（或更多）TXT 文件的 URL，所以我使用 IdHTTP 来获取 txt 文件并阅读它们。但是如果第一个 TXT 离线或其他异常，我想转到第二个等等......我正在使用这段代码：

  ValidTXT:= false;
  HTTP:= TIDHttp.Create(Nil);
  HTTP.ConnectTimeout:= 10000;
  Body:= TStringList.Create;
  HTTP.Request.UserAgent:= 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0; SLCC1';
  while ValidTXT = false do
    begin
      for i:= 0 to TXTs.Count - 1 do
        begin
          Body.Text:= HTTP.Get(TXTs.Strings[i]);
          Line:= Body.Strings[0];
          if pos('AmValid!', Line) > 0 then
            begin
              ValidTXT:= true;

所以，如果我得到“AmValid！” 在 TXT 文件的第一行，它是有效的，我停下来。但如果我没有得到“AmValid！” 或者得到一个例外，为什么我不阅读 StringList 上的下一个 TXT？

4

0 回答 0