使用和过程语法错误

Question

我试图了解如何在我的主要 'modules test unit' 中使用单位。他们是 'module1.pas' 和 'module2.pas'。这是一个控制台程序，我希望在我的主单元中显示和使用这两个单元 modules_test:

program modules_test;

uses
  SysUtils, module1, module2;

procedure modules_display;
begin
  module1;
  module2;
end;

end.

这是单元模块 1：

unit module1;

interface

uses
  Classes, SysUtils;

implementation

begin
  writeln('this is module 1....');

end.

和模块 2：

unit module2;

interface

uses
  Classes, SysUtils;

implementation

begin
  writeln('this is module 2....');

end.

我很确定我遗漏了一些东西，以及我得到的错误，我需要使用什么才能正确执行？

Answer 1

program modules_test;

{$APPTYPE CONSOLE}

uses 
  SysUtils, module1, module2;

procedure modules_display;
begin
  module1.Test;  // Fully qualify the name of the procedure
  module2.Test;
end;

begin
  modules_display;
  ReadLn;
end.

unit module1;

interface

// Declare a procedure that can be called from outside of this unit
procedure Test;  

implementation

uses
  // Unit references that are exclusively used in the implementation section
  Classes, SysUtils; 

// This is the implementation of the procedure
procedure Test;
begin
  writeln('this is module 1....');
end;

end.

unit module2;

interface

// Declare a procedure that can be called from outside of this unit
procedure Test;

implementation

uses
  // Unit references that are exclusively used in the implementation section
  Classes, SysUtils;

// This is the implementation of the procedure
procedure Test;
begin
  writeln('this is module 2....');
end;

end.

查看一些文档，Programs and Units。

使用和过程语法错误

uses and procedure syntax errors

delphi

delphi-7