Einzelnen Beitrag anzeigen

Viktorii

Registriert seit: 19. Jul 2007
358 Beiträge
 
#1

define in anderer Unit wird nicht 'erkannt'

  Alt 5. Sep 2011, 11:47
Delphi-Version: XE
Moin.

Wieso wird das define von Unit2 in Unit1 nicht 'erkannt'?

Delphi-Quellcode:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Unit2;

type
  TForm1 = class(TForm)
  private
{$ifdef MyDef}
    procedure MyProc();
{$endif}
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.MyProc;
begin

end;

end.
Delphi-Quellcode:
unit Unit2;

interface

{$define MyDef}

implementation

end.
Ich möchte mit einem define in einer Unit bedingtes Kompilieren in verschiedenen Units erreichen... Wie kann ich das hinbekommen?
  Mit Zitat antworten Zitat