[GELÖST] Compilerschalter $J+ ohne Funktion?

[Frickler]

Zuweisbare typisierte Konstanten funktionieren hier nur, wenn ich das in den Projektoptionen setze. {$J+} oder {$WRITEABLECONST ON} im Quelltext hat überhaupt keine Auswirkung. Getestet in Delphi XE6 und 10.2. Was mache ich falsch?

[Der schöne Günther]

Die Konstante muss typisiert sein, also nicht const number = 42 , sondern const number: Byte = 42 Die Konstante darf nicht inline sein, sondern muss (wie früher) vor dem begin des Blocks deklariert worden sein.

Hier ein Beispiel das funktioniert:

Delphi-Quellcode:

program Project1;

{$WRITEABLECONST ON}
const
   number: Byte = 42;
begin
   number := 99;
end.

[Frickler]

Danke.

Ich hatte den Schalter an der falschen Stelle gesetzt...

[himitsu]

Wo?

In einer anderen Unit?

In Units sollte er "eigentlich" von der Deklaration, bis zum Unit-Ende funktionieren, also sobald er vor/über dem VAR steht.





Bezüglich Schaltern für Warnungen und Fehlerprüfung, hatte ich es aber auch schon, dass man Diese nicht zu nah definieren sollte.

Delphi-Quellcode:

if irgendwas then  
  {$xyz on}
  machwas
  {$xyz off}
  ;

Hier ist es schon passiert, dass das OFF bereits angewendet, bevor machwas ausgeführt wurde.

[Frickler]

Zitat von himitsu:

Wo?

Code:

procedure Bla;
const test: string = 'nein';
begin
  {$J+}
  test := 'ja';
  {$J-}
end;

[himitsu]

{$J} betrifft die Deklaration der Konstante, nicht die Nutzung.

Delphi-Quellcode:

procedure Bla;
{$J+}
const test: string = 'nein';
{$J-}
begin
  test := 'ja';
end;

Allerdings

Delphi-Quellcode:

var test: string = 'nein';
procedure Bla;
begin
  test := 'ja';
end;

Aber z.B. als Inline läuft das {$J} nicht so, wie man es sich denkt,
obwohl Variablen und Konstanten seit Delphi 10.3 per se sowas können.

Delphi-Quellcode:

procedure Bla;
begin
  {$J+}
  const test: string = 'nein';
  {$J-}
  test := 'ja';
end;

Wobei {$J+} hier garkeinen Einfluß hat, egal wo deklariert ... nichtmal als Parameter -J+ für den Compiler .