FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Ayuda con Comparaciones simultaneas en Pascal
Que tal amigos...
Estoy aprendiendo sobre archivos binarios en Pascal y tengo un problema a momento de usar el "IF"...el codigo simplificado es asi: Código:
Archivo : File of Byte; B1,B2,B3 : Byte; ... while not eof(Archivo) Do begin Read(B1); Read(B2); Read(B3); IF ((B1 = 0) and (B2 = 0) and (B3 = $F3)) or eof(Archivo) then close(Archivo); WriteLn(B1,B2,B3); end; Ah en los archivos binarios tengo datos agrupados de a 3 bytes, terminados con 00 00 F3 al final... de la siguiente manera: "00 12 90 A3 F9 40 12 00 23 00 00 F3" Lo extraño es que en C++ me funciona correctamente, con la instruccion equivalente... Código:
... IF ((B1 == 0) && (B2==0) && (B3==0xF3)) or (feof(Archivo)) fclose(Archivo); ... o debería leer los archivos de otro modo?? Gracias de antemono por su ayuda... Saludos. |
#2
|
||||
|
||||
Hola Novatin.
La comparación es correcta. Lo único que noto en tu código es que debería ser:
Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#3
|
|||
|
|||
Gracias ecfisa...
Me salvaste esta... (y las otras ) un saludo. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Ayuda con Variables Globales y Locales en Pascal | Novatin | Lazarus, FreePascal, Kylix, etc. | 4 | 30-07-2013 05:14:14 |
Ayuda Urgente ej, de pascal | Xmas | Varios | 2 | 15-02-2011 10:33:59 |
Comparativa entre Free Pascal 2.2.0 y Turbo Pascal 7.0 | esocrates | Varios | 2 | 14-07-2008 14:56:24 |
ayuda con pascal!!! | Babas | Lazarus, FreePascal, Kylix, etc. | 3 | 20-10-2006 22:13:41 |
manual de excepciones de object pascal para free pascal??? | Garion | OOP | 3 | 27-05-2005 00:42:29 |
|