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