AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Unit-übergreifende Sichtbarkeit von {$Define …} - geht das?
Thema durchsuchen
Ansicht
Themen-Optionen

Unit-übergreifende Sichtbarkeit von {$Define …} - geht das?

Ein Thema von Andreas13 · begonnen am 25. Jul 2023 · letzter Beitrag vom 27. Jul 2023
 
Andreas13

Registriert seit: 14. Okt 2006
Ort: Nürnberg
721 Beiträge
 
Delphi XE5 Professional
 
#1

Unit-übergreifende Sichtbarkeit von {$Define …} - geht das?

  Alt 25. Jul 2023, 22:48
Hallo Community,
eigeintlich möchte ich aus Unit_2 heraus feststellen, ob in der benutzten Unit_1 die in der von Unit_1 eventuell benutzte Unit_X eingebunden ist oder nicht.
Mir ist dazu nichts besseres eingefallen, als in Unit_X ein passendes Define hinzuzufügen und dieses Define in den rufenden Units abzufragen.

Das Gerüst der drei Units sieht dann wie folgt aus:
Delphi-Quellcode:
Unit Unit_x;

{$Define Unit_X_ist_Vorhanden}

Interface
...

Implementation

...

End. {Unit_x}
{-----------}

Unit Unit_1;

Interface
Uses
  Unit_X;

...

Implementation
...

End. {Unit_1}
{-----------}


Unit Unit_2;
...

Interface
...

Implementation
Uses
  Unit_1;
...
  {$IFDEF Unit_X_ist_Vorhanden}
   //
  {$ELSE}
    ShowMessage('Fehler: Unit_X ist NICHT vorhanden!');
  {$ENDIF}   

End. {Unit_2}
{-----------}
Mein Problem ist "nur", daß in Unit_2 das {$Define Unit_X_ist_Vorhanden} aus Unit_X nicht sichtbar ist.

Wie könnte ich zu einer praktikablen Lösung kommen?

Danke für jeden Tipp & Hinweis im Voraus!
Grüße, Andreas
Wenn man seinem Nächsten einen steilen Berg hinaufhilft, kommt man selbst dem Gipfel näher. (John C. Cornelius)
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:01 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz