Delphi/Lazarus: Compruebe si existe objeto o variable

A veces tiene que probar si un objeto o variable en Delphi o Lazarus existe o si ya se ha inicializado. Cómo lo haces, te lo muestro en este consejo.

Estamos utilizando assigned() para este propósito. Assigned() devuelve TRUE, si el objeto es existente y FALSE si no. Veamos un ejemplo:

var
  sl: TStringList;

...

if assigned(sl) then sl.free;

...

if assigned(sl)=false then sl:=TStringList.Create();

En este ejemplo, solo liberamos la StringList en el caso, la StringList existe y estamos creando una nueva StringList solo en el caso, la StringList no existe.