{$DEFINE Irgendwas} Projektweit anlegen

[Kostas]

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