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?