Tengo un procedimiento que resuelve lo que quiero: recibe una lista y un número n y elimina todas las apariciones de n dentro de la misma. Sin embargo es bastante horrible el código y quería saber cómo puedo optimizarlo (o al menos saber que se puede mejorar) para que haga lo mismo pero sea más claro.
Este es el código:
procedure eliminar(var lista_numeros : lista; n : integer);
var
actual, anterior : lista;
begin
actual := lista_numeros;
while(actual <> nil) do begin
if(actual^.datos = n) then begin
if(actual = lista_numeros) then begin
lista_numeros := lista_numeros^.sig
dispose(actual);
actual := lista_numeros;
end
else begin
anterior^.sig := actual^.sig;
dispose(actual);
actual := anterior^.sig;
end;
end
else begin
anterior := actual;
actual := actual^.sig;
end;
end;
end;