Ayuda lectura de archivos de texto en FreePascal

Aziwar #1 Ene '09 Inocente

Buenas! Tengo una duda a la hora de leer un archivo de texto en FP.

El archivo es el siguiente:

El tema está en que tengo que hacer un juego como el de las muñecas rusas ese, de meter una dentro de otra. Los numeros son las dimensiones.

Entonces yo tenia pensado en hacer un array de 1 a 8 de tipo record que seria ancho y alto : string.

Y la duda es..como puedo dividir cada linea para poder hacer eso? pq lo unico que consigo es que me ponga toda la linea en ancho, y en alto nada. Vamos que poder poner Ancho = 5, Alto = 4

LOc0 #2 Ene '09

Read admite número variable de parámetros:

TYPE
dimensiones=RECORD
ancho, alto:integer;
END;

VAR
vector:array[1..8] of dimensiones;

...
...
...

readln(manejador_fichero, vector[num_linea].ancho, vector[num_linea].alto);

Salu2

Aziwar #3 Ene '09 Inocente

assign(cajas,'cajas.txt');
reset(cajas);

readln(cajas, aux[1].ancho, aux[1].alto);

writeln('ancho: ',aux[1].ancho);
writeln('alto: ',aux[1].alto);

Probando nada mas que eso así, sin meterme con el resto del programa, pone en Ancho la linea entera y en Alto nada.

ancho: <pre><p>8
alto:

EDIT: vale edito, es problema de la primera linea esa, la borre y los otros si funcionan bien

Usuarios habituales