Delphi/Lazarus: Vérifier s'il existe un objet ou une variable

Parfois, vous devez tester si un objet ou une variable dans Delphi ou Lazarus existe ou a déjà été initialisé. Comment vous le faites, je vous montre dans cette astuce.

Nous utilisons à cette fin assigné(). Assigned() renvoie TRUE, si l'objet est existant et FALSE sinon. Regardons un exemple:

var
  sl: TStringList;

...

if assigned(sl) then sl.free;

...

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

Dans cet exemple, nous libérons uniquement la StringList dans le cas, la StringList existe et nous créons une nouvelle StringList uniquement dans le cas, la StringList n'existe pas.