菜问题一个，关于PUBLIC函数

Question

我希望在TYPE的PUBLIC里面添加一个函数或者过程，但编译的时候老是提示UNSATISFIED FORWARD OF EXTERNAL DECLARATION
怎么回事啊。

Answer 1

type
  TFChoose = class(TForm)
    btnCancel: TButton;
    SbtnMain: TSpeedButton;
    SbtnFile: TSpeedButton;
    procedure SbtnMainClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure SbtnFileClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
     function BYAdd(Sender: TObject):Boolean;
  end;
这时进行编译就会说UNSATISFIED FORWARD OF EXTERNAL DECLARATION，不能通过

Answer 2

没有对应函数的实现怎么可以呢？
implementation加上
...
function TFChoose.BYAdd(Sender: TObject):Boolean;
begin
  //具体的实现
end;
...

Answer 3

严重错误！少了下面的内容：function TForm1.BYAdd(Sender: TObject):Boolean;
beginend;

Answer 4

概念错误"在TYPE的PUBLIC里面"???有这么说的吗?这里是定义TFChoose的公有成员函数,好好整理下面向对象编程的基本概念,声明纯虚拟成员函数倒是不用实现