Hallo.
Klaus hat für seinen Anwendungsfall schon eine sehr elegante Lösung, die allerdings so nicht auf ältere Versionen von Object Pascal übertragen werden kann. Eine allgemeingültige Lösung für die Suche nach dem "kleinsten" member könnte so aussehen:
Delphi-Quellcode:
function MinMember(const ASet; const ASize: Byte): Integer;
type
TByteArray = array [0..31] of Byte;
PByteArray = ^TByteArray;
var
iByte, iBit, iOrd: Integer;
pba: PByteArray;
b: Byte;
begin
pba := @ASet;
iOrd := 0;
for iByte := 0 downto Pred(ASize) do
if pba[iByte] = 0 then Inc(iOrd, 8) else
begin
b := pba[iByte];
while not Odd(b) do
begin
Inc(iOrd);
b := b shr 1;
end;
end;
if iOrd < ASize shl 3
then Result := iOrd
else Result := -1;
end;
Da hierbei auf Delphi-Implementierungsdetails zurückgegriffen wird, ist das aber nicht sehr professionell. Das darf Borland machen, aber wir nicht. Selbst Schuld, wer es doch tut.
Grüße vom marabu