procedure Input();
var
p:^TJCB;
begin
new(p);
p^.Name:=Edit1.Text;end;调试结果:[Error] Unit1.pas(122): Undeclared identifier: 'Edit1'为什么我自定义的过程不能使用控件 Edit 的呀?
var
p:^TJCB;
begin
new(p);
p^.Name:=Edit1.Text;end;调试结果:[Error] Unit1.pas(122): Undeclared identifier: 'Edit1'为什么我自定义的过程不能使用控件 Edit 的呀?
如果不是,要在过程所在文件里的use 里添加控件所在的文件,此外Edit1前要带上所在的窗口名。如果是,看看use里有没有stdctrls。一般来说添加了编辑框后,编译时会自动添加stdctrls的
p^.Name:=Frame***.Edit1.Text;// Frame***:Edit1所在的窗口的名字