set of.. speichern/laden?

[Angel4585]

wie genau sprech ich jetzt die Bits an?


also wenn ich a,b,c,d,e hab stehen die 00000000 00000000 00000000 000edcba drin.

also wenn die Bits ein string wären wäre es
bits[Length(bits)-Ord(a)] wo ich setzen müsste für a.
aber wie bekomm ich die als Bits? oder soll ich die besser quadrieren?

Also
zahl:=zahl+Round(power(Ord(a)+1,2)); wenn es das schon gäbe, als einfach Funktion oder so die das komplette Set gleich speichert wäre das viel einfacher...

ok, das speichern hab ich:

Delphi-Quellcode:

function GetZahl(ASet : TMyTypes):Integer;
var i : integer;
begin
if TMyTyp(0) in ASet then
  Result:=1
else result:=0;
for i:= 1 to 4 do//Kann man die Anzahl der Werte dynamisch ermitteln?
  if TMyTyp(i) in ASet then
    Result:=Result+Round(power(i,2));
end;

aber wie lade ich das jetzt wenn ich z.B. "11" bekomme?