Index vom x-tem gesetztem Bit

[Aviator]

LSB bedeutet übrigens Least Significant Bit.

So in der Art könntest du das evtl. umsetzen. Der Code ist ungetestet. Hoffentlich tut er trotzdem was er soll oder gibt dir zumindest einen Anstoß wie du es lösen kannst. Die Funktion gibt -1 zurück wenn das Bit mit der gesuchten Position nicht gefunden wurde.

Delphi-Quellcode:

function CheckBit(const Value: Integer; BitNumber: Integer) : Integer;
var
  i: Integer;
begin
  Result := -1;
  i := 0;
  
  while (Value > 0) do begin
    if (Value and $01) then begin
      if (i = BitNumber) then begin
        Result := i;
        Break;
      end;
      Inc(i);
    end;
  end;
end;