const record von const record

[Mathias]

Ist es irgendwie möglich, das ich bei der 2. Konstante den Wert v an vec zuweisen kann ?

Code: Alles auswählen

type
  TVec = record
    x, y: single;
  end;

  TVecs = record
    r0: single;
    vec: TVec;
    r1: single;
  end;

const
  v: TVec = (x: 1; y: 2);
  v2: TVecs = (r0: 1; vec: v; r1: 2); // bei v motzt er

Code: Alles auswählen

project1.lpr(16,28) Error: Syntax error, "(" expected but "identifier V" found

Sowas geht wie erwartet.

Code: Alles auswählen

  v1: TVecs = (r0: 1; vec: (x: 3; y: 4); r1: 2); // bei v motzt er

Dieser Code habe ich stark vereinfacht. Beim endgültigen Programm ist v1 eine Array, bei dem mehrmals das gleiche vec vorkommt.
Oder bleibt mit da wohl oder üblich nichts anderes übrig, als die Daten in einer procedure manuell zu zuweisen ?


In C geht dies so einfach:

Code: Alles auswählen

constexpr Material      ivory = {1.0, {0.9,  0.5, 0.1, 0.0}, {0.4, 0.4, 0.3},   50.};
constexpr Material     mirror = {1.0, {0.0, 16.0, 0.8, 0.0}, {1.0, 1.0, 1.0}, 1425.};

constexpr Sphere spheres[] = {
    {{-3,    0,   -16}, 2,      ivory},
    .....
    {{ 7,    5,   -18}, 4,     mirror}
};

[PascalDragon]

Ist es irgendwie möglich, das ich bei der 2. Konstante den Wert v an vec zuweisen kann ?

Nein, da nur untypisierte Konstanten wahre Konstanten sind und du brauchst wahre Konstanten, um sie auf der rechten Seite von Konstanten oder als Teil eines Initializers zu verwenden. Typisierte Konstanten widerum sind letztlich einfach nur Variablen, bei denen der Compiler sichergeht, dass du nicht schreiben kannst (was aber nicht heißt, dass du es nicht über Pointerzugriffe erreichen kannst) und je nach Plattform die Daten in einer Read Only Sektion der Binary ablegt, statt in einer Read Write Sektion.
Und von Records können keine untypisierten Konstanten erzeugt werden. Dazu werden Erweiterungen aus Extended Pascal benötigt, die zwar prinizpiell geplant, aber nicht konkret in nächster Zukunft auf der Liste sind.

[Mathias]

(was aber nicht heißt, dass du es nicht über Pointerzugriffe erreichen kannst)

Ich habe es jetzt mal mit Pointer probiert, scheint zu klappen.
Danke für den Tip.

Code: Alles auswählen

type
  PVec = ^TVec;
  TVec = record
    x, y: single;
  end;

  TVecs = record
    r0: single;
    vec: PVec;
    r1: single;
  end;

const
  v: TVec = (x: 1; y: 2);
  v2: TVecs = (r0: 1; vec: @v; r1: 2); // geht

Was ich mir da noch vorstellen kann, v ist da nur einmal im Speicher, bei der C-Variante, wird es wohl mehrmals sein.

[PascalDragon]

(was aber nicht heißt, dass du es nicht über Pointerzugriffe erreichen kannst)

Ich habe es jetzt mal mit Pointer probiert, scheint zu klappen.
Danke für den Tip.

Das war zwar nicht, worauf ich anspielte, aber wenn du für dich dadurch eine Lösung gefunden hast...