Überprüfen of Datentyp definiert ist ...

[bernhard_LA]

wir verwenden einen Datentyp z.B.  type TPoint3D = record x,y,z : Integer end; Wir haben ein paar hundert Units und ein paar Hände voll mit Anwendungen die diese Units dann wieder verwenden. Ich möchte nicht immer alle Units in ein Projekt einbinden müssen und müsste deshalb wissen ob die Definition des Type TPOINT3D schon erfolgt ist oder nicht

Delphi-Quellcode:

{$IfDef TPOint3D}
  ///   nix zu tun 
  {$Else}
  
   type TPoint3D = record x,y,z : Integer end;

  {$EndIf}

Man könnte zu jedem Datentyp ein {$Define T3DPoint } ergänzen, scheint mir keine wirklich gute Lösung zu sein ....

[nahpets]

Hallo,

eine schneller Vorschlag ohne Anspruch auf konkrete Umsetzbarkeit:

Legt alle Typdefinitionen in eine einzige Unit, dann muss nur diese (aber überall) eingebunden werden.

Definekaskaden halte ich für unübersichtlich und fehleranfällig.

Alternativ wäre noch eine Includedatei möglich, die überall eingebunden wird.

[bernhard_LA]

Hintergrund zu der Frage :


ich will nicht jedem Kunden alles geben ... wir haben mehrere units in der viele Datentypen definiert sind ... Für Test Units / Test Anwendungen will ich jetzt nur wenige Datentypen verwenden und weitergeben ...

[mjustin]

Zitat von bernhard_LA:

müsste deshalb wissen ob die Definition des Type TPOINT3D schon erfolgt ist oder nicht

Delphi-Quellcode:

{$IF Declared(TPOINT3D)}

...

{$IFEND}

Doku: http://docwiki.embarcadero.com/RADSt...e_%28Delphi%29

[himitsu]

Da Typen eindeutig sind, hilft dir das eh nix.

Selbst wenn du TPoint3D neu definierst, weil du keine Lust hattest die richtige Unit einzubinden,
dann kannst du es dennoch vergessen z.B. eine "externe" Prozedur, aus einer anderen Unit, aufzurufen, welche aber mit dem eigentlichen Typen deklariert wurde.



Nur weil Typen gleich aussehn, sind sie dennoch nocht kompatibel.

Delphi-Quellcode:

{$IF not Declared(TPoint3D)}
  type TPoint3D = record x,y,z : Integer end;
{$IFEND} // ich hoff es war nicht {$ENDIF}

{$IF Defined(WIN32)} entspricht dem {$IFDEF WIN32} , nur daß man da mehr Möglichkeiten hat, wie z.B. {$IF not Defined(WIN32) and not Defined(UNIX)} .

[p80286]

Zunächst haut Dir doch der Compiler die fehlende Typdefinition um die Ohren, und da kannst Du Dich doch entscheiden was Du machen willst, die "Original"-Unit einbinden oder nahpets Lösung mit den Units/Include-Dateien nutzen.

(wobei, wenn es ordentlich definierte Module/Objekte gibt, sollte das Problem doch eigentlich garnicht auftreten?)
Gruß
K-H

[Furtbichler]

Zitat von p80286:

(wobei, wenn es ordentlich definierte Module/Objekte gibt, sollte das Problem doch eigentlich garnicht auftreten?)

Wieso schreibst Du die entscheidende Frage so klein?

Fatal, wer Units à la 'AlleMeineDatentypenAufEinemHaufen.PAS' hat.

Der Lösungsansatz 'Ich deklarier mir das eben lokal neu' entfaltet seine Eigenheiten spätestens dann, wenn man den Datentypen TPoint3D mal erweitert oder verändert.