Bit Operations (Bit in HEX)

[Amnon82]

@Marabu:

Ich hab nun Deine modifizierte Function eingebaut. Nun müsste man nur die Auswertung diskutieren.

Wenn ich $02 für Bit1 eingebe erhalte ich folgendes Ergebnis:

BitX 1 $02
BitX 1 $02
BitX 1 $02
BitX 1 $02

Somit müsste bit1 enthalten sein.
Auch bei bit6 mit $40 kommt das gleiche Ergebnis:

BitX 1 $40
BitX 1 $40
BitX 1 $40
BitX 1 $40

Nur bei bit0 was RFF simbolisiert kommt ein anderes:

BitX 3173 $01
BitX 3173 $01
BitX 3173 $01
BitX 3173 $01

also müsste der Wert 3173 falsch sein.

bei $64 käme z.B. folgendes raus:

BitX 2380 $64
BitX 2380 $64
BitX 2380 $64
BitX 2380 $64

$10 & $08 hingegen lieften folgendes:

BitX 0 $10
BitX 0 $10
BitX 0 $10
BitX 0 $10

BitX 0 $08
BitX 0 $08
BitX 0 $08
BitX 0 $08

Eins und Null währen mir klar. 1 für enthalten. 0 für nicht enthalten. Was haben aber die anderen Werte zu sagen?

Deine Function hab ich mit folgendem Code ausgeführt:

Delphi-Quellcode:

      
begin        
  Application.ProcessMessages;
  thirtytwo2 := CheckLines(memo.lines);
  Progressbar1.position:=i;
  memo1.lines.add('BitX '+inttostr(thirtytwo2)+' '+edit15.text);
end

Ich hab mal Version8 gecodet. Kannst Du nochmal einen abschließend Blick drauf werfen? Deine Routine ist echt schneller als meine