我喜欢这样写: for I := 0 to 10 do begin //不正确的用法 end; ==== procedure TForm1.mmiFilterClick(Sender: TObject); begin if mmiFilter.Checked=false then begin mmiFilter.Checked:=True; DBGridEh1.STFilter.Local:=true; DBGridEh1.STFilter.Visible:=true; DM.QR_POORDR_010.Filter:=''; DM.QR_POORDR_010.Filtered:=true; end else begin mmiFilter.Checked:=False; DBGridEh1.STFilter.Local:=false; DBGridEh1.STFilter.Visible:=false; DM.QR_POORDR_010.Filter:=''; DM.QR_POORDR_010.Filtered:=False; end; end;