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 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49
| procedure manager_dell;
var code,stock,seuil :integer;
dsgn : string;
pu : real;
begin
writeln('donner le code du produit a supprimer');
readln(code);
reset(fproduit);
while not eof(fproduit) do
begin
read(fproduit,prod);
if prod.code = code then
begin
if eof(fproduit) then
begin
seek(fproduit,filepos(fproduit) - 1);
truncate(fproduit);
end
else
repeat
begin
writeln(filepos(fproduit)); writeln(prod.code);
code := prod.code;
dsgn := prod.designation;
pu := prod.pu;
stock := prod.stock;
{seuil := prod.seuil;}
write(fproduit,prod); {<=== c'est la, j'avais pas mis cette ecriture}
seek(fproduit,filepos(fproduit) - 1 ); writeln(prod.code);
writeln(filepos(fproduit));
prod.code := code; writeln(prod.code);
prod.designation := dsgn;
prod.pu := pu;
prod.stock := stock;
{prod.seuil := seuil;}
{prod := tempo;}
write(fproduit,prod);
seek(fproduit,filepos(fproduit) + 2);
end;
until eof(fproduit);
seek(fproduit,filepos(fproduit) - 1);
truncate(fproduit);
writeln('produit supprim'); readkey;
end;
end;
end; |
Partager