errore file binario di record

[Tony Hak]

ciao raga.. ho un problema :

ho un file binario (.dat) contenente un record del tipo :

tipor = record
nome,
cognome:string20; {stringa 20 caratteri max}
prodotto:tprodotto; {tprodotto è un vettore di 4 elementi interi}
end;
var
r:tipor;

preparo il file alla lettura :

while not eof (cli) do
begin
read (cli,r);
write (r.cognome);
end;

e mi da un errore 100 : disk read error ... dov'e' che sbaglio ?

grazie :mbe:

[Marco Giunio Silano]

Non ho capito, il file, lo apri in lettura o in scrittura? E, leggi e scrivi sullo stesso file?

[Tony Hak]

lo apro in lettura .. devo leggere dei record e stamparli a video

[Marco Giunio Silano]

Posti anche il codice della open per favore?

[Tony Hak]

questo ?

assign (cli,'c:\clienti.dat');
reset (cli);
...........
istruzioni
..........

close (cli)

[Tony Hak]

up :D