两个Unit如下:
unit1
...
TForm1 = class(TForm)
...
public
procedure M1(arg1:string);
end;implementation
uses unit2;
...unit2
...
TForm2 = class(TForm)
private
procedure M2;
end;
implementation
uses unit1;
..在unit2中M2方法中如何调用unit1,Form1中的M1方法?
我是这样写的:
Form1.M1(arg);
为什么会出错???不解啊!
unit1
...
TForm1 = class(TForm)
...
public
procedure M1(arg1:string);
end;implementation
uses unit2;
...unit2
...
TForm2 = class(TForm)
private
procedure M2;
end;
implementation
uses unit1;
..在unit2中M2方法中如何调用unit1,Form1中的M1方法?
我是这样写的:
Form1.M1(arg);
为什么会出错???不解啊!
[email protected]
把form1的函数定义在implementation上面再试试
in module 'FilePacker.exe'.Read of address 00000005'.Process stopped.Use Step or Run to continue.
uses unit1; (或uses unit2;)
放到interface下面,两个都放到
implementation下要出错
用继承吧Form2 = class(TForm1)
并且该方法是PUBLIC或PUBLISHED的.