Question

delphi 编译错误Statement expected but 'PROCEDURE' found

type  TForm5 = class(TForm)    DataSource1: TDataSource;    Label1: TLabel;    ADODataSet1: TADODataSet;    DBGrid1: TDBGrid;    DBRadioGroup1: TDBRadioGroup;    Button1: TButton;    Edit1: TEdit;    Edit2: TEdit;    Edit3: TEdit;    Edit4: TEdit;    Edit5: TEdit;    Button2: TButton;    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;var  Form5: TForm5;implementationuses Unit2;{$R *.dfm} procedure TForm5.Button1Click(Sender: TObject);beginif DBRadioGroup1.ItemIndex<>-1 then   begin    case DBRadioGroup1.ItemIndex of    0:begin    adodataset1.Filtered:=false;      //

Answer 1

在 Unit2;{$R *.dfm} procedure 之间还应有其它代码。你看一下标准文件结构即知。

Answer 2

procedure前程序代码不全,检查是否少 '; ', 'end '