EMB DCE 12 - kann keine "external" Variablen behandeln - WTF ?

[paule32.jk]

Hallo,
ich habe folgenden Code, der in einer Unit steht, und Fehler liefert:

Delphi-Quellcode:

{$ifdef FPC}
    {$mode delphi}{$H+}
{$endif}
unit misc;

interface
uses
    {$ifdef win64}
    Windows,
    {$endif}
    {$ifdef Unix}
    DynLibs,
    {$endif}
    SysUtils;

    {$ifdef win64}
    const DLLname = 'fpcqt.dll';
    {$endif}
    {$ifdef Unix}
    const DLLname = 'fpcqt.so';
    {$endif}
var
    isFpcCompiled: Boolean; cdecl; external DLLname;
...

als Conclusion for me: Ich kann keine "externe" Variablen ansprechen...

[dcc64 Fehler] misc.pas(34): E2029 ',' oder ':' erwartet, aber ';' gefunden
[dcc64 Fehler] misc.pas(34): E2029 ',' oder ':' erwartet, aber Bezeichner 'DLLname' gefunden

[himitsu]

Zitat:

variablen

Variablen gehen dort sowieso garnicht.

Nur Konstanten.
Und zwar ausschließlich "echte" Konstanten, denn typisierte Konstanten sind bloß schreibgeschützte Variablen mit InitialWert.

Bei Win32 müsste das doch auch knallen?

Hach, die Contidionalen bieten einem sooooo viele Möglichkeiten, wie z.B.

Delphi-Quellcode:

    {$if Defined(Win64)}
      const DLLname = 'fpcqt.dll';
    {$elseif Defined(Unix)}
      const DLLname = 'fpcqt.so';
    {$else}
      {$message Fatal 'Compiler nicht untersützt'}  // oder Hint oder Warn
    {$endif}

oder

Delphi-Quellcode:

  const DLLname = 
    {$if Defined(Win64)}
      'fpcqt.dll'
    {$elseif Defined(Unix)}
      'fpcqt.so'
    {$else}
      {$message Fatal 'Compiler nicht untersützt'}
    {$endif};

[Sinspin]

Paule! WTF!

Wenn du auf Teufel komm raus versuchst alles anders zu machen als es richtig ist, kann ich dir nur raten : RTFM. Und mach es dann richtig!

[himitsu]

Maaaa, das ist mir grade aufgefallen, dass ist ja kein Funktion-Export davor, sondern eine Variable?


Klar, Packages exportieren zwar auch Variablen/Typen/..., aber selbst macht man sowas ja eher weniger. :gruebel:

[paule32.jk]

@Sinspin
WTF = Was Tu'en Fahranfänger :-)

Mit Funktionen geht das natürlich.
Ich werkel zu viel mit zu viel anderen Kram rum...
Da verguckt man sich manchmal...