Thema
:
Case-Anweisung - Zwingen alle Elemente des Typen auszuprogrammieren
Einzelnen Beitrag anzeigen
himitsu
Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
Delphi 12 Athens
#
5
AW: Case-Anweisung - Zwingen alle Elemente des Typen auszuprogrammieren
19. Nov 2024, 13:17
vielleicht so?
markieren
Delphi-Quellcode:
case
Value
of
t1: Result := true;
t2: Result := true;
{$IF High(TEnum) <> t2}
{$MESSAGE Error 'peng'}
{$IFEND}
end
;
$2B or not $2B
Zitat
himitsu
Öffentliches Profil ansehen
Besuche die Homepage von himitsu!
Mehr Beiträge von himitsu finden