Cita:
Empezado por egostar
Hola
Código Delphi [-]procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer); var cadena: string; begin ComPort.ReadStr(cadena, Count); cadena := StringReplace(cadena, #13, '', [rfReplaceAll]); ShowMessage(cadena); Memo.Text := Memo.Text + cadena; end;
Salud OS |
Código Delphi
[-]
cadena := StringReplace(cadena, #13, '', [rfReplaceAll]);
Incompatible types de nuevo