多个if

Question

procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(i);
url := memo1.Lines[i-1];
if url <> '' then
 begin
 edit1.Text := url;
//IdHTTP1.HandleRedirects:=True;
 neirong := idhttp1.Get('http://siteexplorer.search.yahoo.com/search?p=http://www.'+url);
 neirongkaishi := '<h1>Results</h1>';
 neirongjieshu := '<ol id="results-domains" class="btn-list">';
 zuizhongneirong := GetStr(neirong,neirongkaishi,neirongjieshu);
  if zuizhongneirong <> '' then
     begin
     zzneirongkaishi := 'Inlinks (';
     zzneirongjieshu := ')<i class="tl"></i><i class="tr"></i><i class="bl"></i><i class="br"></i></a></li>';
     zzneirong:=GetStr(zuizhongneirong,zzneirongkaishi,zzneirongjieshu);
     //memo2.Lines.Add(1) := url+'外链数:'+zzneirong;
     memo2.Lines.Add(url+'外链数:'+zzneirong);
     end
  else
    // memo2.Lines.Add(1) := url+'没有外链';
     memo3.Lines.Add(url+'没有外链');
   end
 else
 showmessage('check over');
 timer1.Enabled := false;end;这个if镶嵌哪里出了问题  运行一次  就直接运行timer1.Enabled := false;

Answer 1

跟踪看看不就知道了
zuizhongneirong <> '' 条件满不满足呀

Answer 2

else
begin 
  showmessage('check over'); 
  timer1.Enabled := false;
end;

Answer 3

你的“timer1.Enabled := false;”在所有begin end之外，就是说怎么都会执行。
如果你想让他只在else时执行，请用begin end把它括起来。

Answer 4

果然是这样啊。加个begin end就正常了。