Kleinster Wert in einem Set

[marabu]

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