Hallo, diesen Code habe ich im Internet gefunden:
Delphi-Quellcode:
function BitToChar(Ch: Char; Bit: TBit): Char;
begin
Result:= IntToStr((Byte(Ch) shr (Bit - 1)) and 1)[1];
end;
function StringToBin(const s: string): string;
var
p, q: Integer;
begin
for p:= 1 to Length(s) do
for q:= High(TBit) downto Low(TBit) do
Result:= Result + BitToChar(s[p], q)
end;
Er wandelt einen String in Binäres um. Klappt soweit und ich verstehe es auch. nur was ich NICHT verstehe ist, wie man es umgekehrt machen kann?