Código Delphi [-]//... ComPort.ReadStr(Str, Count); for i := 1 to Count do begin Binario := FastIntToBin(Byte(Str[i]), 8); StaticText1.Caption := Binario[1]; //...
//... ComPort.ReadStr(Str, Count); for i := 1 to Count do begin Binario := FastIntToBin(Byte(Str[i]), 8); StaticText1.Caption := Binario[1]; //...