Hola.
Aquí dejo otro ejemplo:
Código Delphi
[-]
procedure TFrmInterfaz.PageControlChange(Sender: TObject);
begin
if PageControl.ActivePage <> TabSheet3 then
begin
if Assigned(InterfEntrada) then
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..
