Registriert seit: 28. Dez 2004
Ort: Salzburg
379 Beiträge
|
Globale Compilerdirektiven!?
29. Dez 2004, 15:31
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
(aka AXMD in der EE)
Die Nummer, die Sie gewählt haben, ist imaginär. Bitte drehen Sie Ihr Telefon um 90° und versuchen Sie es erneut.
|