2 Variablen selber länge unterschiedlichen Typs auf selber Speicheradresse

[Uwe Raabe]

Zitat:

Zitat von Der schöne Günther (Beitrag 1494972)

Dieses "case Integer of ..." ist von der Syntax irgendwie eines der ... merkwürdigsten Sachen in Pascal, finde ich.

Gibt es aber schon seit Anbeginn aller Pascal-Zeiten!

Häufig gibt es zu diesem Typ auch eine Variable, also ein Feld in dem Record (das tag field), um festzulegen, welcher Variantentyp gerade in dem Record steht. Aber man kann das eben auch weglassen.

[Redeemer]

Zitat:

Zitat von Uwe Raabe (Beitrag 1494975)

Zitat:

Zitat von Der schöne Günther (Beitrag 1494972)

Dieses "case Integer of ..." ist von der Syntax irgendwie eines der ... merkwürdigsten Sachen in Pascal, finde ich.

Gibt es aber schon seit Anbeginn aller Pascal-Zeiten!

Ich glaub das komische daran ist dieses "Integer", was halt überhaupt nichts aussagt und auch nicht gespeichert wird, oder?

Zitat:

Zitat von Uwe Raabe (Beitrag 1494975)

Häufig gibt es zu diesem Typ auch eine Variable, also ein Feld in dem Record (das tag field), um festzulegen, welcher Variantentyp gerade in dem Record steht. Aber man kann das eben auch weglassen.

Kommt dem von Delphi aus eine besondere Bedeutung zu oder ist das einfach nur so etwas?

[freimatz]

Ja das ist einfach so etwas. Es ist aber Subotimal hier ein Integer zu verwenden. Gut ist es (wenn überhaupt) die Verwendung eines Aufzählungstyps.

[Uwe Raabe]

Zitat:

Zitat von Redeemer (Beitrag 1494979)

Ich glaub das komische daran ist dieses "Integer", was halt überhaupt nichts aussagt und auch nicht gespeichert wird, oder?

Es gibt halt den Typ der folgenden case-label Konstanten an.

Zitat:

Zitat von Redeemer (Beitrag 1494979)

Kommt dem von Delphi aus eine besondere Bedeutung zu oder ist das einfach nur so etwas?

Die Frage habe ich noch nicht verstanden (zumindest nicht so dass ich sie beantworten könnte).

[Uwe Raabe]

Zitat:

Zitat von freimatz (Beitrag 1494981)

Gut ist es (wenn überhaupt) die Verwendung eines Aufzählungstyps.

Delphi-Quellcode:

type
  THackersCaseSelector = (ThisIsTheRealStructure, ThisIsWhatTheFuckingApiRequires);

[freimatz]

:thumb:

[Redeemer]

Zitat:

Zitat von Uwe Raabe (Beitrag 1494984)

Zitat:

Zitat von Redeemer (Beitrag 1494979)

Kommt dem von Delphi aus eine besondere Bedeutung zu oder ist das einfach nur so etwas?

Die Frage habe ich noch nicht verstanden (zumindest nicht so dass ich sie beantworten könnte).

Gemeint war: Hat das Tag für Delphi eine besondere Bedeutung, dass es zum Beispiel Compilermeldungen bezüglich der Typ-/Zuweisungssicherheit auslöst?

[Uwe Raabe]

Zitat:

Zitat von Redeemer (Beitrag 1494990)

Hat das Tag für Delphi eine besondere Bedeutung, dass es zum Beispiel Compilermeldungen bezüglich der Typ-/Zuweisungssicherheit auslöst?

Wenn kein Tag-Field da ist, dann gilt der Tag-Typ nur für die Konstanten des case. Ein Tag-Field ist in der Hinsicht auch nur ein ganz normales Feld des Records. Beim Zugriff auf die Varianten wird der Inhalt des Tag-Fields auch nicht überprüft. Das ginge eh erst zur Laufzeit.

[dummzeuch]

Zitat:

Zitat von Der schöne Günther (Beitrag 1494972)

Dieses "case Integer of ..." ist von der Syntax irgendwie eines der ... merkwürdigsten Sachen in Pascal, finde ich.

Ursprünglich gab es da ja auch noch ein eigenes Feld für:

Delphi-Quellcode:

type
  TUnion = record
    case RecTyp: Integer of
      0: ....
      1: ....
      4711: ....
    end;

Da wurde dann in RecType ein Integer gespeichert, anhand dessen man ermitteln konnte, wie der Record aussieht.
Und dann hat sich halt herausgestellt, dass ein solches zusätzliches Feld nicht immer praktikabel ist, also kann man das Feld auch weglassen.

(Frag' mich keiner, wer das implementiert hat. War das noch Wirth? Oder vielleicht erst Borland?)

[Uwe Raabe]

Zitat:

Zitat von dummzeuch (Beitrag 1495010)

Und dann hat sich halt herausgestellt, dass ein solches zusätzliches Feld nicht immer praktikabel ist, also kann man das Feld auch weglassen.

Das war schon von Anfang an in der Sprachdefinition so vorgesehen. Hier ein Bild aus dem Pascal User Manual and Report: