Variante Records & Konstanten

[slemke76]

Hallo zusammen,

ich möchte gerne eine Datenstruktur mittels Records für verschiedene Anwendungsbereiche deklarieren. Da es eine Record-Vererbung nicht gibt, bin ich über variante Records gestolpert.

Im Moment habe ich das so:

Delphi-Quellcode:

type TCounterType = (Mico, Prodata);

type
  TCounterData = record
    { allgemeine Typen }
    status: byte;
    case CounterType: TCounterType of
      Mico: (blubb: integer);
      Prodata: ();
  end;

Funktioniert so auch. Ich würde aber den Typen des Zählers gerne als Konstante definieren (habe ich bessere Erfahrungen mit gemacht) und habe folgendes probiert:

Delphi-Quellcode:

const
  CT_MICO: byte=1;
  CT_PRODATA: byte=2;
type
  TCounterData = record
    { allgemeine Typen }
    status: byte;
    case CounterType: byte of
      CT_MICO: ();
    end;

Das geht aber nicht ("Konstantenausdruck erwartet"). Wenn ich statt CT_MICO einfach "1" schreibe, gehts.

Hat jemand eine Idee ?

Danke,
Sebastian

[uligerhardt]

Zitat von slemke76:

Delphi-Quellcode:

const
  CT_MICO: byte=1;
  CT_PRODATA: byte=2;
type
  TCounterData = record
    { allgemeine Typen }
    status: byte;
    case CounterType: byte of
      CT_MICO: ();
    end;

Das geht aber nicht ("Konstantenausdruck erwartet"). Wenn ich statt CT_MICO einfach "1" schreibe, gehts.

Mach die Typangabe weg:

Delphi-Quellcode:

const
  CT_MICO = 1;
  CT_PRODATA = 2;

Dann sollte es gehen.

[slemke76]

Hallo,

wow - innerhalb von 4 Minuten Antwort .

Ohne die Typ-Angabe in der Const-Definition gehts, 1000 Dank ! Da wär ich glaube ich mein Leben nicht drauf gekommen. Wollte es besonders gut machen

Grüße,
Sebastian

[uligerhardt]

Zitat von slemke76:

Da wär ich glaube ich mein Leben nicht drauf gekommen. Wollte es besonders gut machen

Das Thema ist in Delphi auch etwas "speziell" gelöst.
Siehe "Typisierte Konstanten".

[himitsu]

Um es nochmal kurz zu erklären:
Typisierte Konstanten sind eigentlich schreibgeschützte Variablen.