Discussion :

[MABB]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[skywaukers]

Bonjour,

voici l'implémentation dans Delphi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[MABB]

Merci Skywaukers

[evarisnea]

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