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

[wave_f]

unit form;

interface

uses
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'

[wave_f]

没人理我

[lion_lh]

放在public或private里

[firetoucher]

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

[lili1]

unit form;

interface

uses
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;

implementation

procedure TForm1.myproc(param1,param2:integer;param3:real);
begin
//这里一定要有内容。
end;

[wave_f]

也是一样的错误啊!

[wave_f]

可以了,谢谢

[NamasAmitabha]

定义了之后要写过程啊！如下：
unit form;

interface

uses
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

procedure myproc(param1,param2:integer;param3:real);//自定义过程
begin
////////////////////////////////////////
end;

end.


没问题了！！！！

[pingshx]

没写实现过程吧！