AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

{$DEFINE Irgendwas} Projektweit anlegen

Ein Thema von Kostas · begonnen am 11. Jul 2006 · letzter Beitrag vom 11. Jul 2006
Antwort Antwort
Kostas

Registriert seit: 14. Mai 2003
Ort: Gerstrhofen
1.095 Beiträge
 
Delphi 10 Seattle Enterprise
 
#1

{$DEFINE Irgendwas} Projektweit anlegen

  Alt 11. Jul 2006, 18:15
Hallo Zusammen,

wie kann ich bitte {$DEFINE Irgendwas} an einer zentrallen Stelle im Programm erzeugen,
so das es aus jeder unit im gesammten Projekt per {$IFDEF Irgendwas} greifbar wird.
Aktuell erzeuge ich in jeder Unit die gleiche {$DEFINE Irgendwas}.

Das zweite Problem ist, unter Delphi5 werden meine IFDEFs in per dpr gelöscht sobald ich in der
Projektverwaltung etwas mache. Gibt es dafür irgen ein schweinischen Trick so das Delphi die IFDEFs nicht löscht?

Gruß Kostas
  Mit Zitat antworten Zitat
Benutzerbild von Lemmy1
Lemmy1

Registriert seit: 28. Nov 2004
Ort: Ismaning
184 Beiträge
 
Delphi 2006 Professional
 
#2

Re: {$DEFINE Irgendwas} Projektweit anlegen

  Alt 11. Jul 2006, 18:18
Zum ersten Problem: Du kannst ein .inc file machen und das via {$INCLUDE} überall einbinden.

Das zweite Problem hab ich nicht verstanden...
Daniel
www.nemu.com - The N64 Emulator
  Mit Zitat antworten Zitat
Kostas

Registriert seit: 14. Mai 2003
Ort: Gerstrhofen
1.095 Beiträge
 
Delphi 10 Seattle Enterprise
 
#3

Re: {$DEFINE Irgendwas} Projektweit anlegen

  Alt 11. Jul 2006, 18:23
Zitat von Lemmy1:
Zum ersten Problem: Du kannst ein .inc file machen und das via {$INCLUDE} überall einbinden.

Das zweite Problem hab ich nicht verstanden...
Das ist vorher:
Delphi-Quellcode:
uses
  Forms,
  Windows,
  schalter,
  Map in 'Map.pas{frMap},
{$IFDEF Kunde1}
  ReadIni in '..\Datenimport\Kunde1\ReadIni.pas{dmReadIni: TDataModule},
  DatenImport in '..\Datenimport\Kunde1\DatenImport.pas{frDatenimport},
{$ENDIF}

{$IFDEF Kunde2}
  ReadIni in '..\Datenimport\Kunde2\ReadIni.pas{dmReadIni: TDataModule},
  DatenImport in '..\Datenimport\Kunde2\DatenImport.pas{frDatenimport},
  DM in '..\Datenimport\Kunde2\TestConnenction\DM.pas{df1: TDataModule},
{$ENDIF}
  SMSSend in 'SMSSend.pas{frSMSSend},
  DM0 in 'DM0.pas{df0: TDataModule},
...

und das ist wenn ich eine neue Unit in die Projektverwaltung hinzufüge.
Delphi-Quellcode:
uses
  Forms,
  Windows,
  Map in 'Map.pas{frMap},
  ReadIni in '..\Datenimport\Kunde1\ReadIni.pas{dmReadIni: TDataModule},
  DatenImport in '..\Datenimport\Kunde1\DatenImport.pas{frDatenimport},
  ReadIni in '..\Datenimport\Kunde2\ReadIni.pas{dmReadIni: TDataModule},
  DatenImport in '..\Datenimport\Kunde2\DatenImport.pas{frDatenimport},
  DM in '..\Datenimport\Kunde2\TestConnenction\DM.pas{df1: TDataModule},
  SMSSend in 'SMSSend.pas{frSMSSend},
  DM0 in 'DM0.pas{df0: TDataModule},
...
Gruß Kostas
  Mit Zitat antworten Zitat
jbg

Registriert seit: 12. Jun 2002
3.483 Beiträge
 
Delphi 10.1 Berlin Professional
 
#4

Re: {$DEFINE Irgendwas} Projektweit anlegen

  Alt 11. Jul 2006, 18:37
Zitat von Kostas:
Das zweite Problem ist, unter Delphi5 werden meine IFDEFs in per dpr gelöscht sobald ich in der
Projektverwaltung etwas mache.
]
Wenn es nur Delphi 5 alleine wäre. Das macht auch BDS 2006 noch so.
  Mit Zitat antworten Zitat
Hawkeye219

Registriert seit: 18. Feb 2006
Ort: Stolberg
2.227 Beiträge
 
Delphi 2010 Professional
 
#5

Re: {$DEFINE Irgendwas} Projektweit anlegen

  Alt 11. Jul 2006, 18:54
Hallo Kostas,

ein Include-File kannst du auch zu Beginn einer Unit einbinden:

Delphi-Quellcode:
{$I DeinInclude.inc}

unit DeineUnit;

uses
  ...
Weiterhin kannst du in den Projektoptionen auf der Seite "Verzeichnisse/Bedingungen" Definitionen angeben, die projektweit gelten.

Wenn ich deine Beispiel richtig interpretiere, möchtest du kundenabhängig bestimmte Teile deines Projekts ausblenden. Warum legst du nicht für jeden Kunden ein eigenes Projektverzeichnis an, in dem sich nur die Projektdatei befindet? Alle weiteren Units legst du in ein gemeinsam genutztes Verzeichnis und nutzt sie dann in allen Projekten. In diesem Fall kannst du auf die Verwendung der bedingten Compilierung in der .dpr-Datei verzichten. Wenn du dann in den Projektoptionen die für den Kunden notwendigen Defines setzt, werden nur die gewünschten Programmteile eingebunden.

Gruß Hawkeye
  Mit Zitat antworten Zitat
Kostas

Registriert seit: 14. Mai 2003
Ort: Gerstrhofen
1.095 Beiträge
 
Delphi 10 Seattle Enterprise
 
#6

Re: {$DEFINE Irgendwas} Projektweit anlegen

  Alt 11. Jul 2006, 19:40
Zitat von Hawkeye219:
Hallo Kostas,

ein Include-File kannst du auch zu Beginn einer Unit einbinden:

Delphi-Quellcode:
{$I DeinInclude.inc}

unit DeineUnit;

uses
  ...
Weiterhin kannst du in den Projektoptionen auf der Seite "Verzeichnisse/Bedingungen" Definitionen angeben, die projektweit gelten.

Wenn ich deine Beispiel richtig interpretiere, möchtest du kundenabhängig bestimmte Teile deines Projekts ausblenden. Warum legst du nicht für jeden Kunden ein eigenes Projektverzeichnis an, in dem sich nur die Projektdatei befindet? Alle weiteren Units legst du in ein gemeinsam genutztes Verzeichnis und nutzt sie dann in allen Projekten. In diesem Fall kannst du auf die Verwendung der bedingten Compilierung in der .dpr-Datei verzichten. Wenn du dann in den Projektoptionen die für den Kunden notwendigen Defines setzt, werden nur die gewünschten Programmteile eingebunden.

Gruß Hawkeye
eine zweite Projektdatei, sehr gut. Werde ich gleich mal testen.
Besten Dank, Ihr hab mir sehr geholfen.

Gruß´Kostas
  Mit Zitat antworten Zitat
Peinhard

Registriert seit: 8. Jul 2006
152 Beiträge
 
#7

Re: {$DEFINE Irgendwas} Projektweit anlegen

  Alt 11. Jul 2006, 19:56
Und ganz 'cool' wird das ganze, wenn du die verschiedenen *.dpr in einer Projektgruppe (*.bpg) zusammenfasst (cf OLH: 'Projektgruppe'). Dann rufst du nicht mehr die dpr, sondern die bpg auf wenn du was zu tun hast und hast eine zentrale Schaltstelle für die beiden (oder mehr) Projekte. Du kannst sie dann zB auch alle auf einen Rutsch compilieren - da du DEFINEs benutzt mußt da allerdings darauf achten, den Menüpunkt 'Alle Projekte erzeugen' zu wählen, da der Compiler sonst uU beim zweiten und weiteren Durchläufen nur die schon vorgefundenen DCUs verlinkt und die IFDEFs untern Tisch fallen lässt bzw nur die des jeweils ersten Projekts berücksichtigt.

peinhard
  Mit Zitat antworten Zitat
Antwort Antwort


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 01:04 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