请大家帮我看一下,为什么会出错呢
unit B;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
C; //引用了C单元
implementation
uses A;
procedure ok;
begin
class1.fun; //C单元中创建的class1类的一个函数,报错:fun没定义。
fun1; //C单元的一个函数,不报错
end;另外,在interface中使用uses和在implementation中使用有什么不同啊?
unit B;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
C; //引用了C单元
implementation
uses A;
procedure ok;
begin
class1.fun; //C单元中创建的class1类的一个函数,报错:fun没定义。
fun1; //C单元的一个函数,不报错
end;另外,在interface中使用uses和在implementation中使用有什么不同啊?
我在A单元引用C单元,使用class1.fun的话,也不会报错,为什么在B单元就报错了呢。
在interface里使用实在进行编译开始时就调用,而在implementation中是运行时调用。
Comctrls, Grids, Printers,
Type
TClass = Class(TPrinter)
...
end;
Var Class1 : TClass;Class1在单元A中create,但放在B单元create一样报错。