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.