德尔福功能无法找到彼此

时间:2015-09-08 15:02:33

标签: delphi

我正在编写一个使用多个函数但遇到问题的Delphi程序我的一个名为DivS的函数在其代码中使用了我的其他函数InplementSInplementS使用{代码中的{1}}

现在,如果我在DivS之前添加DivS函数的代码,则InplementSDivS的使用不会被标记为错误,而是使用{ {1}} InplementS代码中的{1}}标记为错误相同,反之亦然

如何让它一起工作?

提前致谢

1 个答案:

答案 0 :(得分:5)

两种可能性:

  • 使用forward指令:

    implementation
    
    procedure B; forward;
    
    procedure A;
    begin
      B;
    end;
    
    procedure B;
    begin
      A;
    end;
    
  • 在接口部分中至少声明其中一个:

    procedure B;
    
    implementation
    
    procedure A;
    begin
      B;
    end;
    
    procedure B;
    begin
      A;
    end;