Binärzahl in ASCII Schriftzeichen umwandeln

[Klaus01]

Wenn Dir der Binärwert als String vorliegt dann geht das so wie hier beschrieben -> http://www.delphipraxis.net/internal...ct.php?p=31291

Ach, den Integerwert mußt Du dann noch in ein Char wandeln chr(i);

Oder den Code hier verwenden, ist etwas kürzer:

Delphi-Quellcode:

function BinToInt(Value: String): LongInt; 
var 
  i,Size: Integer; 
begin 
  Result:=0; 
  Size:=Length(Value); 
  for i:=Size downto 0 do 
  begin 
    if Copy(Value,i,1)='1' then 
      Result:=Result+(1 shl i); 
  end; 
end;

Grüße
Klaus