在某个单元的接口块中定义类型,然后uses
在需要该类型的其他单元中包含该单元via 子句.
unit A; interface type TMyArray = array [1..4] of Integer; ...
当您需要TMyArray
在另一个单位使用时:
unit B; interface uses A; ... var x : TMyArray;
gabr.. 5
或者,在单元C的接口部分定义您的类型,并在A和B中使用该单元.
在某个单元的接口块中定义类型,然后uses
在需要该类型的其他单元中包含该单元via 子句.
unit A; interface type TMyArray = array [1..4] of Integer; ...
当您需要TMyArray
在另一个单位使用时:
unit B; interface uses A; ... var x : TMyArray;
或者,在单元C的接口部分定义您的类型,并在A和B中使用该单元.