问题(100分)

flyerer · 2003-08-26

我在程序写个过程，运行总出现[Error] Unit1.pas(15): Unsatisfied forward or external declaration: 'TForm1.Add'错误?

w128 · 2003-08-26

TForm1.Add 错误

flyerer · 2003-08-26

procedure Add(i:integer);

pandababy · 2003-08-26

在TForm1中有定义ADD这个方法吗，必需定义了才能用如：
private
procedure add;

flyerer · 2003-08-26

就是这样定义的private
procedure add(s:integer);
运行总出现[Error] Unit1.pas(15): Unsatisfied forward or external declaration: 'TForm1.add'错误?

flyerer · 2003-08-26

有谁知道吗？
请抢答!

迷糊 · 2003-08-26

把 procedure add(s:integer);的定义放在public 中
调用的时候如： form1.add(10)

flyerer · 2003-08-26

不行啊！！！

bluedna · 2003-08-26

你的过程实现部分的参数和定义的不一致，完了。

Avenir · 2003-08-26

实现时没有加TForm1，
实现时
procedure TForm1.Add(...);
//TForm1你加了没有？
begin

end;

flyerer · 2003-08-27

就是这样定义的public
procedure add(s:integer);
还是不行！！！
运行总出现[Error] Unit1.pas(15): Unsatisfied forward or external declaration: 'TForm1.add'错误?

还有谁来试试???

flyerer · 2003-08-27

还有谁来试试???

seagod007 · 2003-09-18

像下面这样写一定没问题
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
procedure add(s:integer);
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.add(s:integer);//你这里肯定没写对，是不是少了TForm1?
begin
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
add(676);
end;

问题(100分)

flyerer

Unregistered / Unconfirmed

w128

Unregistered / Unconfirmed

flyerer

Unregistered / Unconfirmed

pandababy

Unregistered / Unconfirmed

flyerer

Unregistered / Unconfirmed

flyerer

Unregistered / Unconfirmed

迷糊

Unregistered / Unconfirmed

flyerer

Unregistered / Unconfirmed

bluedna

Unregistered / Unconfirmed

Avenir

Unregistered / Unconfirmed

flyerer

Unregistered / Unconfirmed

flyerer

Unregistered / Unconfirmed

seagod007

Unregistered / Unconfirmed

Similar threads