【结】函数重写的问题

yellowspring

下面的代码有问题吗？
type
  TCT_BZGFH_BZTX = class(GN_BZGFH_BZGZJLJBGN.TCT_BZGFH_BZGZJL)
  private
    {private declarations}
  public
    {public declarations}
    procedure OpenEditForm(const iActionFlag:Integer;myParam:TReportParam);override;
  end;

implementation

procedure TCT_BZGFH_BZGZJL.OpenEditForm(const iActionFlag:Integer;myParam:TReportParam);override;
var  myForm : TCT_BZGFH_BZTX;
begin
    try
        myForm := TCT_BZGFH_BZTX.Create(self.Context);
        btnNew.Enabled := False;
        btnExit.Enabled := False;
        myForm.iActionFlag := iActionFlag;
        myForm.iRJLX := myParam.iRJLX;
        myForm.ShowModal;
    finally
        if  (myForm<>nil) then
            myForm.free;
        btnNew.Enabled := True;
        btnExit.Enabled := True;
    end;
end;

为什么报错： unexpected token: override

lixy

const去掉试试。

yellowspring

找到原因了，应该这样写
type
  TCT_BZGFH_BZTX = class(GN_BZGFH_BZGZJLJBGN.TCT_BZGFH_BZGZJL)
  private
    {private declarations}
  public
    {public declarations}
    procedure OpenEditForm(const iActionFlag:Integer;myParam:TReportParam);override;
  end;

implementation

procedure TCT_BZGFH_BZGZJL.OpenEditForm(const iActionFlag:Integer;myParam:TReportParam);

结贴吧