[Cougar]

juste lui donner un nom de plus de 8 caractères

sinon ça donne ça par exemple

assign(f,dir1+'disques.dat');
{$I-}
reset(f);
{$I+}
if IOResult <> 0 then rewrite(f) else reset(f);

pis après write(f,...) ou read(f,...)