Bit Operations (Bit in HEX)

[Amnon82]

Delphi-Quellcode:

{D2VParse v8

              forty2 :=0;
              forty2 := CheckLines(memo.lines,$40);
              if forty2=1 then
              begin
              forty:=forty+1;
              memo1.lines.add('Bit6 found - '+inttostr(forty));
              end;
              forty2 :=0;
              forty2 := CheckLines(memo.lines,$02);
              if forty2=1 then
              begin
              two:=two+1;
              memo1.lines.add('Bit2 found - '+inttostr(two));
              end;
              forty2 :=0;
              forty2 := CheckLines(memo.lines,$01);
              if forty2=1 then
              begin
              zero:=zero+1;
              memo1.lines.add('Bit0 found - '+inttostr(zero));
              end;

              D2VParse v9}
              forty2 :=0;
              forty2 := CheckLines(memo.lines,$40);
              if forty2>0 then
              begin
              forty:=forty+forty2;
              memo1.lines.add('Bit6 found - '+inttostr(forty));
              end;
              forty2 :=0;
              forty2 := CheckLines(memo.lines,$02);
              if forty2>0 then
              begin
              two:=two+forty2;
              memo1.lines.add('Bit1 found - '+inttostr(two));
              end;
              forty2 :=0;
              forty2 := CheckLines(memo.lines,$01);
              if forty2>0 then
              begin
              zero:=zero+forty2;
              memo1.lines.add('Bit0 found - '+inttostr(zero));
              end;

Ich hab mal die marabu routine angepasst. Nun kommen andere Werte raus, da er nun auch die Bit0 zählt. Laut DGIndex ist das D2V aber TFF und nicht BFF.

http://img49.imageshack.us/img49/188/top2ae.png