procedure save(var p : pt);
var chemin : string;
erreur : integer;
fichier : file of onion;
begin
writeln('vlez vous save ? (ok)');
readln(ch);
if ch ='ok' then
begin
writeln('o— sauvegarder ?');
readln(chemin);
chemin := chemin + 'on';
{$I-}
assign(fichier,chemin);
reset(fichier);
{$I+}
erreur := IOresult;
if erreur = 0 then
begin
while p <> nil do
begin
write(fichier,p^);
p := p^.suiv;
end;
close(fichier);
writeln('c un succes');
end;
end;
end;
il affiche unique ment le message avant le "assign" je ne sais plus quoi faire
jettez un oeil SVP