Cita:
Empezado por roman
Después de escribir el encabezado, ¿por qué mueves el puntero? write deja el puntero al final de lo que escribes.
|
El fichero es primero abierto como tsttype, se escribe el encabezamiento y entonces es abierto como enteros para escribir el cuerpo. Supongo que al cerrarlo y volverlo a abrir, pero como enteros, el SizeOf del encabezamiento haya sido calculado de esa manera en turbo pascal para situar el puntero en el lugar adecuado (al final del encabezamiento).
Cita:
Empezado por roman
También sería útil que dijeras cuál es el código de error. De hecho, puedes ver una lista de ellos buscando I/O Errors en la ayuda de Delphi.
|
El fichero fabricado con este programa en turbo pascal está OK y lo abre bien el módulo de procesamiento (hecho también con turbo pascal). Ahora, cuando ese mismo fichero lo hago con Delphi 6, ese módulo no lo puede abrir y el error que da, no alcanzo a verlo (un runtime error del turbo pascal).
He observado algunas cosas, ejemplo, los valores del cuerpo del fichero, declarados como
Integer en turbo pascal, en Delphi 6 tengo que declararlo como
Word, con la misma línea de pensamiento he probado con el encabezamiento, pero no he encontado la solución.
Gracias mil
R. Sánchez