Asignar a nil despues de liberar puntero

[ecfisa]

Hola BDWONG.

Siempre es aconsejable asignar nulo a un apuntador para denotar que no está apuntando a nada. Si lo tomas como norma, podes verificar sin dificultad en cualquier momento si un apuntador esta asignado:

Código Delphi [-]
var
  i: Integer;
  p: ^Integer;
begin
  p:= nil;
  p:= @i;
  if Assigned(p) { p <> nil } then
    Writeln('Todo ok, p^ = ',p^)
  else
    Writeln('¡¡¡ Imposible !!!');

  p:= nil;

  if not Assigned(p) { p = nil }  then
    Writeln('Todo ok, p = nil')
  else
    Writeln('¡¡¡ Imposible !!!');

  readln;
end.

Saludos