Einzelnen Beitrag anzeigen

Benutzerbild von sh17
sh17

Registriert seit: 26. Okt 2005
Ort: Radebeul
1.642 Beiträge
 
Delphi 11 Alexandria
 
#12

AW: Case-Anweisung - Zwingen alle Elemente des Typen auszuprogrammieren

  Alt Gestern, 14:05
Das ist so aber auch schwer mitzubekommen,
bzw. es wird nicht lesbarer.
{$IF Ord(High(TEnum)) <> 1} {$MESSAGE Error 'peng'} {$IFEND}

array[TEnum] of ... = (...);
Hier bekommst du die Änderung der Anzahl mit.

Wenn jemand aber gleichzeitig etwas hinzufügt und löscht,
ohne dass es zwischendrin angepasst wurde,
dann flutscht das natürlich durch.
Dann würde es aber auch knallen, weil ein alter Wert fehlt - wenn man sich bisher an seine Regel der vollständigen Auswertung gehalten hat.
Sven Harazim
--
  Mit Zitat antworten Zitat