自定义类,并

Question

//我自定义一个类,并定义一个方法
unit Unit2;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TypInfo, StdCtrls;type
  date = class(TObject)
    procedure test();
    //这里错了呢??[DCC Error] Unit2.pas(11): E2065 Unsatisfied forward or
    //external declaration: 'date.test'
  end;implementationprocedure test();
begin
  Application.MessageBox('f', 'o', 0)
end;end.//调用一个窗体中
implementation{$R *.dfm}uses Unit2;
procedure TForm1.btn1Click(Sender: TObject);
var
 t :date;
begin
  t := date.create;
  //Application.MessageBox('this', 'ts', MB_YESNO)
    t.Test;
end;

Answer 1

procedure date.test();
begin
  Application.MessageBox('f', 'o', 0)
end;

Answer 2

procedure test();
要指明出处date.test

Answer 3

type
  date = class(TObject)
    procedure test();
    //这里错了呢??[DCC Error] Unit2.pas(11): E2065 Unsatisfied forward or
    //external declaration: 'date.test'
  end;

Answer 4

test声明了没有实现，正如楼上各位大虾所说的