Bonjour

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
procedure supprime(var tete:tptr);
var
	temp,test:tptr;
	e:integer;
begin
	temp:=tete;
	write('e:');
	readln(e);
	if tete=nil then writeln('La liste est vide,pas de suppression!') else begin
		while temp^.next<>nil do begin
			if temp^.data=e then begin
				test^.next:=temp^.next;
				dispose(temp);
				temp:!test;
			end else begin
				temp:=temp^.next;
			end;
		end;
	end;
end;
et le résultat :



SVP puis-je savoir comment le corriger ?

Merci