Globale Compilerdirektiven!?

[Dust Signs]

Kurze Frage: kann es sein, dass {$DEFINE}-Direktiven nicht global verwendet werden können? Beispielcode:

Delphi-Quellcode:

program dstpclt;

{$DEFINE STANDALONE} //Standalone EXE (non-networking)

uses
  FastShareMem,
  Forms
  {$IFDEF STANDALONE}
  , ClientMain in 'ClientMain.pas' {StandaloneMainForm}
  {$ENDIF};

{$R *.res}

begin
  Application.Initialize;
  Application.Title := 'DSTP Terminplaner 2.0 Client';

  {$IFDEF STANDALONE}
    Application.CreateForm(TStandaloneMainForm, StandaloneMainForm);
  {$ENDIF}

  Application.Run;
end.

Der Code innerhalb der {$DEFINE}-Direktive in ClientMain.pas wird nicht kompiliert:

Delphi-Quellcode:

...

{$IFDEF STANDALONE}
function SendRequest(Request: String): Integer;
begin
  Result := _SendRequest('127.0.0.1', '$public', Request);
end;
{$ENDIF}

...

Dust Signs

[CalganX]

Hi,
Compilerdirektiven sind AFAIK normalerweise global, allerdings keine Defines, die du meinst.
Was du machen kannst, ist eine zusätzliche Unit erstellen, in der du alles definierst, was du global brauchst und diese Unit (bzw. einfacher wäre eine Datei, die du dann includest) einbindest.

Chris

[Dust Signs]

Aber warum funktioniert mein Code dann nicht ?

Dust Signs

[Muetze1]

Moin!

Wenn du ein {$DEFINE xxx} in einer Unit schreibst, dann gilt diese nur in der Unit und ist nur da gültig. Wenn du es projektweit haben willst, dann nutze kein {$DEFINE xxx} zum definieren sondern Projekt->Optionen->Verzeichnisse/Bedingungen->Bedingungen->Definitionen und trage dort die Schlüsselwörter ein - mit Semikolon werden diese abgetrennt wenn du mehrere hast. Also in deinem Falle einfach ein STANDALONE dort eintragen.

Andere Möglichkeit wie es z.B. die JEDI Leute vorziehen ist die Benutzung einer Include Datei die dann von jeder Unit angezogen wird. Darin dann diese {$DEFINE xxx} positionieren.

MfG
Muetze1