Отправлено Влад 02 ноября 2004 г. 15:35 В ответ на: Да нет так :) отправлено Elektronik 02 ноября 2004 г. 15:22

procedure TForm1.VaComm1RxBuf(Sender: TObject; Data: PVaData;
Count: Integer);
var Temp1 : array[0..127] of byte;
vvv:integer;
begin
vvv:=VaBuffer1.BufUsed;
VrNum1.Value:=vvv; Выводим число символов ждущее в буфере
VaBuffer1.Read(Temp1[0],vvv);
VrNum2.Value:=Temp1[0]; Выводим текущее значение :)
end;