Variante Records & Konstanten

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