Const record

[hansmaad]

Hallo Zusammen...
Ich möchte ein const record deklarieren, das selber ein record Feld besitzt:

Delphi-Quellcode:

type
    A = record
        x : Integer;
        y : Integer;
    end;

    B = record
        xy : A;
        z : Integer;
    end;
const
    AA : A = (x : 0; y : 0);
    BB : B = (xy : AA; z : 0);  // <--

Code:

 E2029 '(' erwartet, aber Bezeichner 'AA' gefunden

Geht das nicht?

Danke&Grüße
hansmaad

[mkinzler]

Versuch mal
BB : B = (xy : (AA); z : 0);

[hansmaad]

Das hatte ich auch schon ausprobiert.
BB : B = (xy : (AA); z : 0);

Code:

E2003 Undeklarierter Bezeichner: 'AA'

Edit:

Das geht: (ich mein zwar auch das schon ausprobiert zu haben, aber nu gehts)
BB : B = (xy : (x : 0; y : 0); z : 0);
Mich würde trotzdem noch interessieren, ob es auch eine Lösung gibt, die AA verwendet.

[himitsu]

Typisierte Konstanten sind ja keine echten Konstanten
(es sind nur schreibgeschützte Variablen)

Also könnte es sein, daß die strenge Typenprüfung AA also nicht richtig als Konstante an dieser Stelle anerkennt.

BB : B = (xy : (x : 0; y : 0); z : 0); .

BB : B = (xy : (x : AA.x; y : AA.y); z : 0);

[gammatester]

Es dürfen nur konstante Ausdrücke verwendet werden. "Typed const" sind nicht konstant. Man kann keinen konstanten Record definieren.

[himitsu]

"echte" Konstante:
const NAME = WERT; .

typisierte Konstante:
const NAME: TYP = WERT; .

(falls jemand den Unterschied nicht gleich erkennt)

[mleyen]

Folgendes würde funktionieren:

Delphi-Quellcode:

type
  PA = ^A;
  A = record
    x: Integer;
    y: Integer;
  end;

  B = record
    xy: PA;
    z: Integer;
  end;
  
const
  AA: A = (x: 10; y : 0);
  BB: B = (xy: @AA; z : 0);

[hansmaad]

Danke euch allen, gute Infos

Aber was genau heißt denn "typisierte Konstanten sind nicht konstant"?

AA.x := 1; führt zu der von mir erwarteten Fehlermeldung ".. kann nichts zugewiesen werden".
AA ist eine typisierte Konstante und für mich ziemlich konstant. Falsch?

[mirage228]

Über den Compiler-Schalter {$J+} solltest Du solche Konstanten dennoch beschreiben können

[hansmaad]

Zitat von mirage228:

Über den Compiler-Schalter {$J+} solltest Du solche Konstanten dennoch beschreiben können

Aha...ok... naja ich will das ja gar nicht

Und gleich noch eine Frage zu const.

Delphi-Quellcode:

procedure Foo;
const
  AA : A = (x : 0; y : 0);
begin
 //...
end;

Wann wird AA initialisiert? First call, bei jedem Call, bei Programmstart...?