Registriert seit: 16. Mär 2004
2.287 Beiträge
|
Re: Chiffre BinärtoText TexttoBinär
15. Okt 2005, 12:09
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;
»Unlösbare Probleme sind in der Regel schwierig...«
|
|
Zitat
|