объявить процедуру

← →
td (2005-07-06 15:07) [0]

как объявить процедуру, чтобы ее можно было вызвать из другого модуля?

(консольное приложение, процедуру - в отдельном модуле, в тексте проекта - вызвать)

← →
Ega23 © (2005-07-06 15:22) [1]

в тексте проекта - uses Unit1
unit Unit1; interface procedure Nothing; implementation procedure Nothing; begin end; end.

← →
Юрий Зотов © (2005-07-06 15:24) [2]

> td

Надо объявить ее заголовок в секции interface ее модуля, а сам этот модуль включить в предложение uses вызывающего модуля.

unit ProcUnit;

interface

procedure Proc(...);

implementation

procedure Proc(...);
begin
...
end;

end.

unit Unit1; // или project Project1;
...
uses ..., ProcUnit;
// Здесь можно вызывать Proc
end.

← →
td (2005-07-06 15:29) [3]

спасибо

объявить процедуру Найти похожие ветки