Bonsoir,
Je suis étudiante en première année informatique, je fais un programme en TP il s'agit d'un petit logiciel de gestion d'une bibliothèque.
Le programme fonctionne je dirais passablement. mais j'ai un souci : je voudrais supprimer un enregistrement dans un fichier mais je n'y arrive pas. Si quelqu'un pouvait m'aider...
Voici le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
{procedure de supprimer}
procedure sup(var x:fich);
var i,j:integer ;
 r:ouvrage;
 t:fich;
 begin
assign(t,'kika.pas');
rewrite(t);
reset(x);
writeln(' donner j');
readln(j);
for i:=0 to j-2 do
begin
seek(x,i);
read(x,r);
write(t,r);
end;
for i:=j to filesize(x)-1 do
begin
seek(x,i);
read(x,r);
write(t,r);
end;
close(x);
close(t);
erase(x);
rename(t,'document.pas');
assign(f,'document.pas');
end;
merci d'avance