Welches Bit in einer Zahl ist gesetzt

[MaBuSE]

Zitat von SirThornberry:

das einfachste währe wohl einfach einer funktion einen pointer auf ein Integer zu übergeben, dann kann dann später auch jeder was anderes übergeben (char eines Strings, Single etc.)

Stimmt, mit dem Pointer wäre es einfacher,
aber Pointer sind böse (zumindest unter .net)

Ich muß mal testen, ob mein Programm überhaupt in .net geht (D2005)

[MaBuSE]

Zitat von Robert Marquardt:

"TStringlist" ist der Benutzername.
if Zahl and trunc(Power(2,15)) > 0 then Bit15_ist_gesetzt Das ist wirklich grauenhaft ineffizienter Code. Power() liefert ein Extended das von Trunc() wieder in ein Int64 verwandelt wird.
Jetzt erfolgt das "and" auf Int64. Damit ist zwar das ">" korrekt, aber nicht wirklich gut.

Ach so. TStringList als Username, da muß man erst mal drauf kommen.

Hatte mich heute Morgen mit meiner Freundin gezofft, deshalb fühlte ich mich wohl persönlich angegriffen.
(Ich mag keine Bastonade, Schmerzen sind doof.)
Sorry, bin manchmal ein Sensibelchen, war nicht so gemeint.
(-> Habe mich wieder beruigt)

[smudo]

Vielen Dank für die zahlreichen Vorschläge.

Da ich nur mit Integer-Werten arbeite, werde ich mich für die rechts simple Methode von Dax entscheiden.

@MaBuSE - hoffe, du kommst mit deiner Freundin wieder ins Reine

[MaBuSE]

Zitat von smudo:

@MaBuSE - hoffe, du kommst mit deiner Freundin wieder ins Reine

Alles wieder im grünen Bereich. (war ein dummes Missverständniss)

[Robert Marquardt]

Verrat ihr aber besser nicht was eine Bastonade ist

[marabu]

Da müsst ihr jetzt durch:

Delphi-Quellcode:

function BitTest(const c: cardinal; bit: byte): boolean;
begin
  Result := Odd(c shr bit);
end;

Fröhliche Grüße vom marabu

[SMO]

Da Sets in Delphi über Bits realisiert sind, geht's auch sehr schön so:

Delphi-Quellcode:

type
  T32Bits = set of 0..31;
var
  i: Integer;
// ...
if 15 in T32Bits(i) then ShowMessage('Bit 15 ist gesetzt');
Include(T32Bits(i), 4); // setze Bit 4 auf 1
// andere Set-Operationen funktionieren natürlich auch

[TStringlist]

Uups, die Threadfortsetzung ist mir tatsächlich irgendwie durch die Lappen gegangen... (wahrscheinlich durch eine Deaktivierung der Auto-Einloggung und weshalb nach dem ersten EMail keine weiteren kamen).

@ Robert Marquardt

na na, jetzt mach aber mal ein bisschen halblang. Ich war seit Wochen nicht mehr da und hatte nur kurz vergessen, dass hier immer und überall die theoretisch aller letzt mögliche Effizienz das aller einzigste Kriterium überhaupt ist.

Ehrlich gesagt, war meine Code-Zeile eher als Tipp gedacht, der die Sache aber bloß ganz besonders anschaulich machen sollte, also bei einer Dualzahldarstellung eben mit Basis 2 und ABit (=15) als Exponent zu agieren...


Ansonsten achte ich aber in Sequenzen die häufig durchlaufen werden durchaus auch etwas auf Effizienz (was hier aber in keinster Weise extra gewünscht war). In solchen Situation benutzte ich z.B. auch schon des häufigeren diesen wahrscheinlich etwas schnelleren Code:

Delphi-Quellcode:

function TForm1.checkBit(ADig,ABit : integer) : boolean;
const BitDim : array[0..15] of word = (1,2,4,8,16,32,64,128,256,512,1024,2048,4096,8192,16384,32768);
begin
  Result := ADig and BitDim[ABit] > 0;
end;

ob du's glaubst oder nicht, was egal ist.


PS. Übrigens dein Satz mit dieser Bastonade ist gar nicht so lustig, wie du vielleicht glaubst. Auch schon alleine im Gebrauch solcher Vokabeln versucht sich nämlich ein entsprechender Geistesinhalt freizuschaufeln und weshalb man da nicht so billig mit herumlabern sollte. Sonst schlägst du nämlich morgen nochmal tatsächlich deine Kids (wenn du welche hast) nur weil sie irgendwo mal zufälligerweise nicht 100% effizient waren, ...nur um allen dadurch nochmal ganz besonders deutlich gemacht zu haben, dass du dich ja auch wirklich schon so so gut wähnst, dass du es deswegen ja eigentlich auch schon gar nicht mehr richtig aushalten kannst. (Diese versuchte Aufgeilerei bei solchen nur Sachthemen ist doch einfach bloß Schwachsinn!)

[runger]

Hallo,

Delphi-Quellcode:

function TForm1.checkBit(ADig,ABit : integer) : boolean; 
const BitDim : array[0..15] of word = (1,2,4,8,16,32,64,128,256,512,1024,2048,4096,8192,16384,32768); 
begin 
  Result := ADig and BitDim[ABit] > 0; 
end;

Zwar im Prinzip die gleiche Lösung, aber eleganter:

Delphi-Quellcode:

function testbit(a,b:word):boolean;
var s:word;
begin
  s:=1;
  result:=false;
  If b <>1 then s:= s shl(b-1);
  If (A and s) > 0 then result:=true;
end;
end;

Das ganze ist nicht getestet und es sind auch keine Fehler abgefangen. B>15 wäre eine Problem.
Ausserdem (für die Obergescheiten) etwas schulmässig geschrieben, damits auch jeder versteht.

Rainer

Rainer

[SirThornberry]

ach Leute, es wurde gleich am Anfang schon eine supi Variante gepostet, diese leicht abgeändert und man kann eigentlich jeden Typ übergeben (bzw. einen Pointer darauf)

Delphi-Quellcode:

function IsSet(pIntToCheck: PInteger; Bit: Integer): Boolean; 
begin 
  Result := pIntToCheck^ and (1 shl Bit) <> 0; 
end;

Und niemand hindert einen dann daran einen anderen Pointer zu übergeben. So kann man sich zum beispiel ausgeben lassen ob das 0te Bit eine Charakters gesetzt ist ohne erst zu casten weil es eben auch als Pointer übergeben wird.

Delphi-Quellcode:

var lMeinString: String;
begin
  lMeinString := 'abcde';
  ShowMessage(BoolToStr(IsSet(@lMeinString[2], 0), True));
end;