Typ Word in binär umwandeln?!

[Praktikant]

wie im Topic shcon steht suche ich einen einfachen Weg einen Wert welcher in einer Tabelle steht und vom Typ Word ist in binär umzuwandeln und dann anschliessend wieder in eine Tabelle zu schreiben.

Bin da auf CurrToBCD gestossen, aber irgendwie weiss ich nicht wie das zu verwursteln ist und ob überhaupt der korrekte Ansatz.

thx :cyclops:

[Luckie]

Delphi-Quellcode:

function IntToBin(Int: Integer): String;
var
i : Integer;
begin
Result := '';
for i := 7 downto 0 do
Result := Result + IntToStr((Int shr i) and 1);
end;

function BinToInt(Binary: String): Integer;
var
i : Integer;
begin
Result := 0;
for i := Length(Binary) downto 1 do
Inc(Result, StrToInt(Binary[i]) * 1 shl (Length(Binary) - i));
end;

[Praktikant]

alles klar, thx :)

PS: Ich muss abhängig von einer onclick Auswahl je zwei Bits in dem gewandelten Word auswählen und steuern.
Wie greife ich am besten auf die Bits (zb. das 4.&5. Bit) zu und ändere diese.
Die jetzt 16 Bit liegen in einer Tabelle als String.

[Christian Seehase]

Moin Praktikant,

neue Frage - neuer Thread ;-)