引言: 各位先進： 小弟學寫程式的時候，常常會遇到access violation的錯誤 我把程式碼放在下面 procedure TDataModule1.ADOTable0AfterScroll(DataSet: TDataSet); begin if adotable0.FieldByName('dateout').AsString='' then form3.speedbutton1.visible:=true else form3.SpeedButton1.Visible:=false; form3.DateTimePicker2.visible:=true; end; 我想在adotable0移動資料的時候去判斷有些功能是不是可讓使用者用 如果沒有else以下三行，程式是可以跑，只是speedbutton不會聽話 那為什麼加了else，反而會出現一堆錯誤呢？

   else  begin 
     form3.SpeedButton1.Visible:=false;
     form3.DateTimePicker2.visible:=true;       end;    

 
1.FOR I := 1 TO 10 DO
    BEGIN
     ..........
    END;
2.IF (I=1) THEN
    BEGIN
       ..........
    END
  ELSE IF (I=1) THEN
    BEGIN
       ..........
    END
  ELSE
    BEGIN
       ..........
    END;
3. WHILE NOT QUERY.EOF DO
     BEGIN
       ..........
     END;