How to run procedure from another unit?

问题:

Well this kind of n00b question but I still can't figure it out. I have unit main with procedure Discard() in it. Now I have another unit engine and I want to run from it procedure Discard() of unit main. I have main in uses section of engine.pas. I tried to call procedure with main.Discard() but no good. What am I doing wrong?

回答1:

You need to put the procedure's signature in your interface, like so:

unit main;  interface  procedure Discard();  implementation  procedure Discard(); begin //do whatever end; 

Other units can only "see" whatever's listed in the interface section.

回答2:

In unit "Main" you declare Discard in the "interface" section:

 unit Main;  interface  uses ...  procedure Discard (...); // only the declaration, not the entire procedure  implementation  ... // code 

Now in unit "Engine" you add "Main" to the "uses" section.

uses Main, ...

Thats it, you can call Discard(...) now. If there are more than one Discard() you can explicitely call this Discard() by using Main.Discard().

文章来源: How to run procedure from another unit?