[[egostar]]

Empezado por maeyanes

Disculpen mi ignorancia con esta funcion.... alguien puede postear un ejemplo de esta funcion... algo tengo q estar haciendo mal, q no hay manera q me compile el Delphi

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