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:

markieren

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:

markieren

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

Zitat von slemke76:

markieren

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:

markieren

Delphi-Quellcode:

const
  CT_MICO = 1;
  CT_PRODATA = 2;

Dann sollte es gehen.

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

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".

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