Bits mit Schieberegler einstellen

[Thomas Beier]

Wie kann ich mit einem Schieberegler diese werde erreichen.
Schieberegler von 0 bis 15.
Gruß Thomas

<PRE> Bit 1 Bit 2 Bit 3 Bit 4 </PRE>
<PRE> 16 32 64 128 </PRE>

<PRE> 1 X </PRE>
<PRE> 2 X </PRE>
<PRE> 3 X X </PRE>
<PRE> 4 X </PRE>
<PRE> 5 X X </PRE>
<PRE> 6 X X </PRE>
<PRE> 7 X X X </PRE>
<PRE> 8 X </PRE>
<PRE> 9 X X </PRE>
<PRE>10 X X </PRE>
<PRE>11 X X X </PRE>
<PRE>12 X X </PRE>
<PRE>13 X X X </PRE>
<PRE>14 X X X </PRE>
<PRE>15 X X X X </PRE>
<PRE> </PRE>

[Bernhard Geyer]

Hab zwar nicht 100% verstanden was du willst, aber wenn du mit einem Schieberegler sowas wie TTrackBar meinst:

result := Schieberegler.Position shl 4;

oder

result := Schieberegler.Position * 16

[Thomas Beier]

Dange!

Die ersten 4 Bits (1,2,4,8) sind richtig,aber die zweiten (16,32,64,128)
Bits 16 bis 128 haut nicht hin.
Ich muß mit dem ersten regler von 0-15 und mit dem zweiten regler von 16-128
einstellen können

[Hagen Reddmann]

<pre>
Bits = (Bits and not $0F) or Regler1.Position and $F;
Bits = (Bits and not $F0) or Regler2.Position shl 4;
</pre>

Gruß Hage