Delphi-PRAXiS - Einzelnen Beitrag anzeigen - Case-Anweisung - Zwingen alle Elemente des Typen auszuprogrammieren

**himitsu**

vielleicht so?

Delphi-Quellcode:

			  case Value of

    t1: Result := true;

    t2: Result := true;

    {$IF High(TEnum) <> t2} {$MESSAGE Error 'peng'} {$IFEND}

  end;

himitsu Registriert seit: 11. Okt 2003 Ort: Elbflorenz 44.306 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; Ein Therapeut entspricht 1024 Gigapeut.
	Zitat