scope - Pascal：将模块完全导入当前范围

Question

更多的帕斯卡困境。

假设我有 2 个单位MainUnit， 和ExampleClass。

主要单位：

Unit MainUnit;

interface

Uses ExampleClass;

function ReturnFive: Integer;

implementation

function ReturnFive: Integer;
begin
  ReturnFive := 5;
end;

begin
end.

示例类：

Unit ExampleClass;

{$mode objfpc}

interface

type 
  ClassThing = Class
    SampleValue: Integer;
  end;


implementation

begin
end.

现在，我只想导入MainUnit，但仍然可以使用ClassThing. MainUnit uses ExampleClass，但ClassThing在导入时不可用MainUnit。

我真的不想和use ExampleClass一起MainUnit，我更愿意将其保留在一个uses声明中。

你怎么做到这一点？

Answer 1

放

type ClassThing = ExampleCLass.ClassThing;

在主机界面。

该原则也适用于 const，但仅适用于“真实”的（不是更多初始化变量的类型）：

const myconst = unitname.myconst;

几乎所有我经常使用的类型都是相似的别名，因此我可以轻松地在定义它们的位置移动，而无需更改所有业务代码单元中的 uses 子句