＿＿＿＿＿_
　／:＼.＿＿＿＿＼ ／良く見れば...
　|:￣＼.ﾐ∩ﾟДﾟﾐ＼＜　いいテク使ってるぜｺﾞﾙｧ
　|:　　 |:￣￣ U￣:|　＼
　　　　　　ｼﾌﾞ--ｲ

　　真似ッこさせてもらおう。

unit IntVector;
interface
type T = Integer;
{$include Vector.inc}
implementation
{$include Vector.inc}
end.
----------------
{$ifndef Vector}
{$define Vector}
// interface

{$else}
// implementation

{$endif}

　　＿＿＿＿　　　　uses IntVector, RealVector;
　/......　　..　.../ 　　　 var Vector1, Vector2: TVector;
　||:::　　　∧,,∧　　／Vector1 := IntVector.TVector.Createと
　|:￣＼ ﾐ,, ﾟДﾟﾐ＜　　Vector2 := RealVector.TVector.Create
　|:　　 :|:￣U U￣:|＼ というように同時に使えるんですか？
　|:　　 :|:　　　　　.:|
　　教ｴﾃ　ﾎｽｲ