verschiedene Sets an Prozedur übergeben

[Angel4585]

das Problem was in der Prozedur passiert ist Thema in nem andern Thread.

Also:
ich möchte quasi den Spielstand speichern. Das ganze wird ein Onlinegame.

also ich habe sowas:

Delphi-Quellcode:

TMyTyp = (tTyp1,tTyp2,tTyp3,tTyp4,...,tTypn);
TMySet = set of TMyTyp;

an die Prozedur will ich jetzt das Set übergeben und in ein Integer verwandeln.
Dabei hat der erste teil den Wert 1, der zweite 2, der dritte 4, der vierte 8 usw.
jetzt schau ich welches der Teile gesetzt ist und bekomm so eine zahl die ich an mein skript schicken kann, in die Datenbank schreiben, wieder auslesen und wieder zurück in das Set wandeln kann.

ich find das schon relativ einfach, die Prozedur habe ich soweit, allerdings muss ich die eben für jedes Set schreiben und da ich ein fauler mensch bin ( ) möcht ich EINE Prozedur die jedes meiner Sets verarbeiten kann