Einzelnen Beitrag anzeigen

lxo

Registriert seit: 30. Nov 2017
290 Beiträge
 
Delphi 12 Athens
 
#13

AW: Gibt es keine generischen Proceduren?

  Alt 11. Jan 2025, 18:48
Ich habe mich schon oft gefragt, ob es möglich ist, eine generische Funktion zu schreiben, ob ein bestimmtes Element in einer Aufzählung vorhanden ist.

EDIT: Das war jetzt etwas schlampig ins Handy geschrieben. Ich mache selten Enumerationen, ohne auch ein Set dafür zu deklarieren. Ich meinte also natürlich eine generische Funktion, um das Vorhandensein in einem Set zu prüfen.
Wozu so eine Funktion?
Geht doch auch so mit einem kurzen Einzeiler.
Wüsste nicht was man da für eine Funktion bauen könnte die das vereinfacht oder Mehrwert bietet.
Delphi-Quellcode:
lEnum := Enum1;
lSet := [Enum1,Enum2];
if lEnum in lSet then

Oder

if Enum1 in [Enum1,Enum2] then

oder auch

if Enum1 in [Low(TMyEnum)..High(TMyEnum)] then
  Mit Zitat antworten Zitat