Wie teste ich, welche Bits in einem Int64 gesetzt sind?

dirkil2 · Beiträge: 130

Ich benötige eine Funktion, die testet, ob ein Bit in einem Int64 gesetzt ist. Ich probierte

Delphi-Quelltext

1:
2:
3:
4:

function isBitSet( const num: Int64; const i: Integer ) : Boolean;
begin
  Result := (num and (1 shl i)) <> 0;
end;

Das funktioniert aber nur für die ersten 32 Bits, da shl nur mit Integers (32 Bit) arbeitet. Wer hat eine Idee, wie ich das für Int64 abfragen kann?

Vielen Dank im Voraus!

Moderiert von Christian S.: Delphi-Tags hinzugefügt

Allesquarks · Beiträge: 510 Win XP Prof Delphi 7 E

Du könntest probieren ob du die int64 direkt shiften kannst und dann and verknüpfen.

Womit es auf jeden Fall geht ist rumpointern. Da musst du dann je nachdem welchen Teil des int64 du haben möchtest halt 4byte dazuaddieren.

benicz · Beiträge: 38 Win XP Turbo Delphi 2006

markieren

Delphi-Quelltext

1:
2:
3:
4:

Function IsBit(AValue : LongWord; ABitNo : LongWord): boolean;  //blaa
Begin
  result:= ((AValue and ( 1 Shl (ABitNo-1)))>0);
End;

...nurnoch für int64 umbauen und gut.
das prinzip sollte sich erklären, oder?

viel erfolg!

edit:
sorry, nicht weit genug gelesen...
ich würd's in zweimal 32 bit unterteilen und dann trotzdem so machen

Lossy eX · Beiträge: 1048 Erhaltene Danke: 4

64 Bit Werte sind kein natives Format der CPU und Delphi versucht deinen Code so gut / schnell wie möglich zu gestalten. Also interpretiert er deine Konstante 1 als einen 32 Bit Integer. Was aus Sicht der Geschwindigkeit auch vollkommen okay ist. Aber dir ist es nicht möglich so die oberen 32 Bit anzusprechen. Jetzt musst du Delphi nur beibringen, dass er einen 64 Bit Wert benutzen soll.

Dazu genügt es den Wert 1 als Int64 zu casten oder alternativ kannst du auch eine typisierte Konstante / Variable verwenden.

markieren

Delphi-Quelltext

1:	Result := (num and (Int64(1) shl i)) <> 0;

_________________
Nur die Menschheit ist arrogant genug, um zu glauben sie sei die einzige intelligente Lebensform im All. Wo nicht mal das nachhaltig bewiesen wurde.

BenBE · Verfasst: Di 29.01.08 02:40

alternativ:

markieren

Delphi-Quelltext

1:	Result := (num shr i) and 1 <> 0;

_________________

Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme