verschiedene Sets an Prozedur übergeben

[Angel4585]

ich soll für mein kleines RPG anstatt dem:

Delphi-Quellcode:

TWaffentyp = (wSchwert,wAxt,wStab,wPeitsche,wBogen,wArmbrust,wFlinte,wSpeer);
TSchadenstyp = (sSchnitt,sSchlag,sStich,sSchuss);
TZaubertyp = (zFeuer,zWasser,zErde,zWind,zBlitz,zEis,zLicht,zDunkelheit);
TRassen    = (rMensch,rZwerg,rElf,rDunkelelf,rOrk,rTroll);

das hier machen?

Delphi-Quellcode:

TMegaMultiAllroundTyp = (wSchwert,wAxt,wStab,wPeitsche,wBogen,wArmbrust,wFlinte,wSpeer,
 sSchnitt,sSchlag,sStich,sSchuss,
 zFeuer,zWasser,zErde,zWind,zBlitz,zEis,zLicht,zDunkelheit,
 rMensch,rZwerg,rElf,rDunkelelf,rOrk,rTroll)