Chiffre BinärtoText TexttoBinär

[glkgereon]

Ich hab das ganze mal mit Memos gebastelt...

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
//TextToBin
var i, j:Integer;
    T: String;
begin
  Memo2.Lines.Clear;
  for i:=0 to Memo1.Lines.Count-1 do
    begin
    T:='';
    for j:=1 to Length(Memo1.Lines[i]) do
      T:=T+IntToBin(Ord(Memo1.Lines[i][j]))+' ';
    Memo2.Lines.Add(T);
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
//BinToText
var i, j:Integer;
    T, T2: String;
begin
  Memo2.Lines.Clear;
  T:=Memo1.Text;
  for i:=Length(T) downto 1 do
    if (T[i]<>'1') and (T[i]<>'0') then Delete(T,i,1);
  T2:='';
  while Length(T)>0 do
    begin
    T2:=T2+Chr(BinToInt(copy(T,1,8)));
    Delete(T,1,8);
    end;
  Memo2.Lines.Add(T2);
end;