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?