Uso de nil

[lucasarts_18]

Hola.

Aquí dejo otro ejemplo:

Código Delphi [-]
 procedure TFrmInterfaz.PageControlChange(Sender: TObject);
 begin
   if PageControl.ActivePage <> TabSheet3 then
   begin
     if Assigned(InterfEntrada) then
        //como dice Lepe es lo mismo que if InterfEntrada <> nil
     begin
       DS.DataSet := nil;
       FreeAndNil(InterfEntrada);
     end;
   end
   else
     if PageControl.ActivePage = TabSheet3 then
       try
         InterfEntrada :=  TOracleDataset.Create (nil);
         InterfEntrada.Session := DMServidores.OSession;
       except
         InterfEntrada.Free;
       end;
 end;

En definitiva, la comparación de un objeto con nil es para saber si existe y si tiene una dirección de memoria asignada.

Hasta luego..