StrToBin <> BinToStr

[Tommy1988]

Ne, da blick ich nicht durch. Ich habs jetzt mal so probiert.

Delphi-Quellcode:

procedure TForm1.Edit6Change(Sender: TObject);
var
Str, Ergebnis: String;
begin
 Memo6.Text := Chr(BitsToByte(Edit6.Text));
 Str := Edit6.Text;
 Ergebnis := Copy(Str, 9, 8);
 Caption := 'Ergebnis: ' + Ergebnis;
end;

Edit:
Damit wollte ich zumindest schon einmal die einzelnen Strings rausfischen.