FreeAndNil & delphi4

Bonjour les utilisateurs de delphi

J'ai un souci. La procedure FreeAndNil n'existe pas sous D4 ou je ne la trouve pas. C'est pour installer delphiODE.
J'essaie de la créer ainsi :

Code:

---

1 2 3 4 5 6

procedure FreeAndNil(var Obj:TObject); begin Obj.Free; Obj:=nil; end;

---

Une erreur se produit : les types des paramètres VAR originaux et formels doivent être identiques.

Comme tous les objets de delphi descendent de TObject, je me suis dit qu'il fallait faire ainsi.

Bref, avez-vous une solution ?

Bonjour,

voici l'implémentation dans Delphi

Code:

---

1 2 3 4 5 6 7 8

procedure FreeAndNil(var Obj); var Temp: TObject; begin Temp := TObject(Obj); Pointer(Obj) := nil; Temp.Free; end;

---

@++
Dany

Merci Skywaukers

salut,
n'oublie pas de mettre le sujet en :resolu: si c'est ok.;)