Welches Bit in einer Zahl ist gesetzt

[MaBuSE]

Zitat von smudo:

Wie kann ich mit Delphi ermitteln, ob das 1., 2. oder 15. Bit einer Zahl 1 ist?

Zitat von Dax:

Och Leute

Delphi-Quellcode:

function IsSet(I, Bit: Integer): Boolean;
begin
  Result := I and (1 shl Bit) <> 0;
end;

Hallo zusammen,
diese Lösung funktioniert aber nur bei ganzen Zahlen (Integer).

Wie sieht es aber bei Kommazahlen (z.B. Single = 4 Byte) aus?

Wie sind die Bits der Mantisse im Speicher?

Ich habe hier mal ein kleines Codeschnippsel gepostet um sich das anzuscheuen.

Einfach 3 Edit Felder (Edit1, Edit2 und Edit3) und einen Button auf ein Form plazieren und in die onClick Methode des Buttons den Quelltext (siehe Link) einfügen.
http://www.delphipraxis.net/internal...=397854#397854

In Edit1 eine Zahl (z.B: 1,5) eingeben und den Button drücken.
In Edit2 wird der Speicherinhalt hexadezimal ausgegeben.
In Edit3 wird der Speicherinhalt binär ausgegeben.

Viel Spaß
MaBuSE

@smudo: Falls Deine Frage beantwortet ist, nicht vergessen mit dem - Button oben auf der Seite die Frage als beantwortet zu markieren.
Danke