如何從另一個單位運行程序？

Question

那么這個n00b問題，但我仍然無法弄清楚。 我有單位main與程序Discard()在其中。 現在我有另一個單元engine ，我想從它的單元main程序Discard()運行。 我有engine.pas主要uses部分。 我試着用main.Discard()調用程序，但沒有好處。 我究竟做錯了什么？

Answer 1

您需要將過程的簽名放在界面中，如下所示：

unit main;

interface

procedure Discard();

implementation

procedure Discard();
begin
//do whatever
end;

其他單位只能“看到”接口部分列出的內容。

Answer 2

在“Main”單元中，您在“interface”部分聲明Discard：

unit Main;

interface

uses ...

procedure Discard (...); // only the declaration, not the entire procedure

implementation

... // code

現在在單元“引擎”中，將“Main”添加到“uses”部分。

uses Main, ...

多數民眾贊成，你現在可以打電話給Discard(...) 。 Discard() by using Main.Discard() . 如果有多個Discard()您可以使用Main.Discard()明確地調用 Discard() Main.Discard() 。