FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Problemita con ReadStr
"Tolomeo se mudo al Polo Norte"
Última edición por JoseFco fecha: 24-12-2008 a las 12:29:40. |
#3
|
|||
|
|||
"Tolomeo se mudo al Polo Norte"
Última edición por JoseFco fecha: 24-12-2008 a las 12:29:56. |
#4
|
|||
|
|||
"Tolomeo se mudo al Polo Norte"
Última edición por JoseFco fecha: 24-12-2008 a las 12:30:07. |
#5
|
|||
|
|||
Otra ayudita sobre el tema ?
Buenas muchachos, estoy con un problemita no tan complicado
pero me supera un poco, lo que pretendo de este codigo es extraer solo las letras y nros. que puedan venir del puerto, y no así los caracteres raros o ruidos que pueda venir. El tema se me complica porque al preguntar si es Nro. o letra desconozco las funciones de conversión de tipos, y PChar <> PAnsiChar y sigue la lista de errores.. El tema en cuestión es la lectura de un lector de tarjeta por proximidad, hasta funciona!!!, pero nose que caracteres puedan venir en otras tarjetas o simplemente ruidos como lo mencionaba anteriormente. Código:
procedure TfrmLector.ComPortRxChar(Sender: TObject; Count: Integer); var sLect:string; cChar:Char; i:integer; begin Sleep(1000); // Porque sino se activa nuevamente el evento mientras estoy procesando ComPort.ReadStr( sLect, 20 ); // A mi me interesan 12 caracteres que pueden ser letras o nros. sLectura := UpperCase( sLect ); // es una variable global, pq Delphi no maneja variables estáticas sLectura := ReplaceSTR( sLectura, Chr(13), ''); sLectura := ReplaceSTR( sLectura, Chr(10), ''); sLectura := ReplaceSTR( sLectura, '', ''); sLectura := ReplaceSTR( sLectura, '', ''); sLectura := ReplaceSTR( sLectura, '', ''); // Aquí iría rutina para filtrar solo letras y nros., // ya que nose que otros caracteres pueden venir, del tipo for i :=1 to length(sLectura) lblRTarjeta.Caption := sLectura; end; Walter |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
problemita | jhonnyone1 | SQL | 2 | 27-05-2008 00:42:38 |
Problemita con RadioGroup | Tolón | OOP | 2 | 01-02-2007 22:08:01 |
Problemita con los menues | lbidi | Varios | 4 | 16-07-2006 14:56:57 |
Problemita con los menues | lbidi | Varios | 1 | 16-07-2006 02:54:39 |
Problemita DLL | NeWNeO | Varios | 5 | 20-07-2004 17:54:10 |
|