Warning: file_get_contents(/data/phpspider/zhask/data//catemap/9/delphi/8.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Delphi函数可以';我们找不到对方_Delphi - Fatal编程技术网

Delphi函数可以';我们找不到对方

Delphi函数可以';我们找不到对方,delphi,Delphi,我正在编写一个使用多个函数的Delphi程序,但是遇到了一个问题,我的一个名为DivS的函数在其代码中使用了另一个函数InplementS,而InplementS在其代码中使用了DivS 现在,如果我把DivS函数的代码放在InplementS之前,那么InplementS中使用DivS不会被标记为错误,但是DivS中使用InplementS的代码会被标记为错误,反之亦然 我怎样才能让它一起工作 提前感谢两种可能性: 使用向前指令: implementation procedure B; f

我正在编写一个使用多个函数的Delphi程序,但是遇到了一个问题,我的一个名为
DivS
的函数在其代码中使用了另一个函数
InplementS
,而
InplementS
在其代码中使用了
DivS

现在,如果我把
DivS
函数的代码放在
InplementS
之前,那么
InplementS
中使用
DivS
不会被标记为错误,但是
DivS
中使用
InplementS
的代码会被标记为错误,反之亦然

我怎样才能让它一起工作

提前感谢

两种可能性:

  • 使用
    向前
    指令:

    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;
    
    • 有两种可能性:

      • 使用
        向前
        指令:

        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;
        

      转发声明?@jamesbarras:确实如此。我希望OP考虑在OLH中查找它;向前地对于我的实现部分和它的工作进展声明?@jamesbarras:确实如此。我希望OP考虑在OLH中查找它;向前地到我的实现部分,它成功了