making functions available between units

Hi there

I have a unit which defines several wrapper objects to direct3D functions. This unit has (amongst others) the units 'directXGraphics' and 'd3dx8' in its uses clause.

These units also contain several functions, objects, records etc (such as TD3DXVector) which are useful for the user.

How do I make the objects,functions such as TD3DXVector etc available within a unit which ONLY has my unit in its uses clause? I don't want the user to have to also add 'directXGraphics' and 'd3dx8' to the uses clause too.

I also don't want to have to define wrappers with different names such as:
type TmyD3DXVector = TD3DXVector;

Thanks in advance
Peter

In case anyones interested, the solution:

unit SingleUnit;

interface

uses Unit1, Unit2, Unit3;

type
TFirstClass = Unit1.TFirstClass;
TSecondClass = Unit2.TSecondClass;
TThirdClass = Unit2.TThirdClass;
TFourthClass = Unit3.TFourthClass;

Now any unit that includes 'singleUnit' will have access to all duplicated classes from child units.(thx to Workshop_Alex,
Old UBB Archived Link: [URL=http://www.experts-exchange.com)]www.experts-exchange.com)[/URL]

rats, is there another way then?

:) Thats fine

Thanks for your help on that!

pea,

In case anyones interested, the solution: unit SingleUnit; interface uses Unit1, Unit2, Unit3; type TFirstClass = Unit1.TFirstClass; TSecondClass = Unit2.TSecondClass; TThirdClass = Unit2.TThirdClass; TFourthClass = Unit3.TFourthClass; Now any unit that includes 'singleUnit' will have access to all duplicated classes from child units.(thx to Workshop_Alex, Old UBB Archived Link: [URL=http://www.experts-exchange.com)]www.experts-exchange.com)[/URL]

Be carefull! SingleUnit.TFirstClass is not the same class as Unit1.TFirstClass but rather a descendent class. So unless you use the SingleUnit types to declare your objects, the other units will have to do typecasting in some instances.

pea,

Rats myself! I jumped in too quick with my last reply. The solution you gave does work. What I was thinking of was:

type
TFirstClass = type Unit1.TFirstClass;

This latter structure defines a new type. The structure that you gave simply defines an alias.

Sorry about that. I will try to take a little more care next time.