Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Types aus unterschiedlichen Units in einer Unit sammeln (https://www.delphipraxis.net/94342-types-aus-unterschiedlichen-units-einer-unit-sammeln.html)

Alloc 20. Jun 2007 09:41


Types aus unterschiedlichen Units in einer Unit sammeln
 
Hi alle,

ich habe zur Zeit das Problem, dass ich in einem Programm viele Typen in den unterschiedlichsten Units deklariere, aber dann quasi alle diese Typen in mehreren Units brauche (zB für "myVar is TFile"). Dh ich muss zur Zeit in jeder dieser Units, die die Typen kennen soll, alle "Typen"-Units einbinden.
Gibt es eine Möglichkeit jetzt eine Unit zu erstellen, die die anderen Units einbindet und dann quasi nur Referenzen auf die Typen enthält, so dass ich dann wiederum in den Hauptunits nur diese eine Unit einbinden muss und alle Typen kenne?

Bsp: (U = Unit)
Code:
UType1:
 - TmyType1
UType2:
 - TmyType2
UType3:
 - TmyType3
Dann benötigt zb UForm1 alle 3 Typen und müsste dementsprechend alle 3 Units einbinden. Kann ich stattdessen dann eine Unit UMyTypeCollection schreiben die im Interface-Teil nur die anderen Typen referenziert (ähnlich wie "forward"), so dass UForm1 nur noch UMyTypeCollection einbinden muss?

Grüße,
Chris

Bernhard Geyer 20. Jun 2007 09:49

Re: Types aus unterschiedlichen Units in einer Unit sammeln
 
Delphi-Quellcode:
uses
  UnitName;
type
  TTypeBezeichnung := UnitName.TTypeBezeichnung;

Robert Marquardt 20. Jun 2007 09:56

Re: Types aus unterschiedlichen Units in einer Unit sammeln
 
= nicht :=

Bernhard Geyer 20. Jun 2007 10:00

Re: Types aus unterschiedlichen Units in einer Unit sammeln
 
Falsch aus dem Kopf heraus geschrieben :oops:

Alloc 20. Jun 2007 12:59

Re: Types aus unterschiedlichen Units in einer Unit sammeln
 
Da hätte ich auch mal drauf kommen können :oops:
Danke euch =)

Grüße,
Chris


Alle Zeitangaben in WEZ +1. Es ist jetzt 05:06 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz