Tutorial Arbeiten mit Dateien auf binärer Ebene

[Popov]

Zitat von p80286:

Auch wenn es interessant ist Euch "zuzulesen" wie wär's sich zum Titelthema zu kommen?

Indirekt ist es immer noch das Thema, nur fortgeschritten. Denn wie er die Bits aus Byte auslesen kann, wurde schon gesagt.

Aber damit es weiter geht, hier ein Konverter Text zu BitString:

Delphi-Quellcode:

function TextToBitStr(Str: string): string;

    function ByteToBits(B: Byte): string;
    var
      i: Integer;
    begin
      Result := '';
      for i := 0 to 7 do
        Result := IntToStr(((B shr i) and 1)) + Result;
    end;
var
  i: Integer;
begin
  Result := '';
  for i := 1 to Length(Str) do
    Result := Result + ByteToBits(Ord(Str[i]));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(TextToBitStr('Hallo Welt!'));
end;

Ergebnis:

Code:

0100100001100001011011000110110001101111001000000101011101100101011011000111010000100001