你把這個事件begin  end 中的內容刪了,編繹一次後,再重新寫試試吧

解决方案 »

  1.   

    在第119行前面有
    begin
    ...
    end;
    不配对;或少写了分号(;)
      

  2.   

    程序大概是这样的:
    unit Unit2;interfaceuses
    …………type
    ……
    end;
    ComboBox5: TComboBox;
    ……
    ……
    ……
    procedure ComboBox5Change(Sender: TObject);private
    ……
    public
    ……
    end;var
      Form2: TForm2;implementationuses Unit4, Unit1;beginprocedure TForm2.ComboBox5Change(Sender: TObject);
    begin
    ……
    end;end.有什么错呢???
      

  3.   

    uses Unit4, Unit1;begin//这个多余了
      

  4.   

    implementationuses Unit4, Unit1;{****begin****}procedure TForm2.ComboBox5Change(Sender: TObject);
    begin
    ……
    end;end.这个“{****begin****}”有必要吗?
      

  5.   

    to: eulb(执子之手,与子偕老) 
    只多begin还是end也不要?去掉还是不对!!!
      

  6.   

    implementationuses Unit4, Unit1;
    {$R *.dfm}   //这一行你是不是删掉了,不能删{****begin****}  //去掉
    ...
    ...end.  //留着
      

  7.   

    {$R *.dfm}   没有删
    我在
    procedure TForm2.ComboBox5Change(Sender: TObject);
    begin
    ……
    end;
    中的“begin”前加了“var……”,还是出同样的错