Binärcode <--> ASCII

[Klaus01]

anstelle von diesem

Delphi-Quellcode:

 for i:=1 to (length(bit) div 8) do 
  result[i]:=result[i] + char(1 + BitToInt(Bit[1+(i-1)*8] + Bit[2+(i-1)*8] + Bit[3+(i-1)*8] + Bit[4+(i-1)*8] + Bit[5+(i-1)*8] + Bit[6+(i-1)*8] + Bit[7+(i-1)*8] + Bit[8+(i-1)*8])); // In dieser Zeile kommt die Fehlermeldung

mal dies probieren

Delphi-Quellcode:

 for i:=1 to (length(bit) div 8) do 
  result:=result + char(1 + BitToInt(Bit[1+(i-1)*8] + Bit[2+(i-1)*8] + Bit[3+(i-1)*8] + Bit[4+(i-1)*8] + Bit[5+(i-1)*8] + Bit[6+(i-1)*8] + Bit[7+(i-1)*8] + Bit[8+(i-1)*8])); // In dieser Zeile kommt die Fehlermeldung

Grüße
Klaus