Wie kann ich Zahlen in Bit-Folgen umwandeln (also z.B.: 5 -> 101)?
Ich habe einen eigenen Umwandler geschreiben ,aber es muss aber nochmal überprüft werden.
Vielen Dank!
Mario
Das läuft relativ schnell:
const
L = ‚1‘;
O = ‚0‘;
var
dez,bit,max:Integer;
bin:String;
begin
dez := 32 + 16 + 0 + 4 + 0 + 1; //halt irgendne Zahl…
max := dez;
bin := ‚‘;
bit := 0;
repeat
if ((1 shl bit) and dez)>0 then bin := L+bin else bin:=O+bin;
inc(bit);
max := max shr 1;
until max