|
Выводится одно и тоже значение, может я в Count что-то не то записываю ?
procedure TForm1.VaComm1RxBuf(Sender: TObject; Data: PVaData;
Count: Integer);
var Temp1 : array[0..127] of byte;
begin
Count:=VaComm1.ReadBufUsed;
VaComm1.ReadBuf(Temp1[0],Count);
VrNum1.Value:=Temp1[0];
end;
E-mail: info@telesys.ru