@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
