procedure TMainForm.ApdComPort1TriggerAvail(CP: TObject; Count: Word); var I : Word; C : String; begin Memo1.Lines.Add('RECIBIDO :'); for I := 1 to Count do begin C := C + ApdComPort1.GetChar; // Aqui puede tomar estos valores para sus nesecidades Memo1.Lines.Add(C); // Habilitar esto para mostrar byte por byte end; Memo1.Lines.Add(C); // Habilitar esto para mostrar como cadena edPeso.Text := C ; Memo1.Lines.Add('') end;
El resultado lo muestro en un TEdit, y lo que me muestra es lo siguiente:
kg||00||
El resultado tambien lo muestro en un TMemo, y lo que me muestra es lo siguiente:
kg kg kg 0 kg 00 kg 00 kg 00||