急!我定义一个过程出现错误......

Question

unit form;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;type
  TForm1 = class(TForm)
  procedure myproc(param1,param2:integer;param3:real);//自定义过程
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation
编辑时出错:
[Error] form.pas(11): Unsatisfied forward or external declaration: 'TForm1.myproc'
[Fatal Error] s2.dpr(8): Could not compile used unit 'form.pas'

Answer 1

type
  TForm1 = class(TForm)
   public
   procedure myproc(param1,param2:integer;param3:real);//自定义过程
  private
    { Private declarations }
  public
    { Public declarations }
  end;
试试

Answer 2

unit form;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;type
  TForm1 = class(TForm)
 
  private
    { Private declarations }
  public
    { Public declarations }
 procedure myproc(param1,param2:integer;param3:real);//放到这里来。 
  end;var
  Form1: TForm1;implementationprocedure TForm1.myproc(param1,param2:integer;param3:real); 
begin
  //这里一定要有内容。 
end;

Answer 3

定义了之后要写过程啊！如下：
unit form;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;type
  TForm1 = class(TForm)
  procedure myproc(param1,param2:integer;param3:real);//自定义过程  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementationprocedure myproc(param1,param2:integer;param3:real);//自定义过程
begin
 ////////////////////////////////////////
end;end.
没问题了！！！！