Difference between revisions of "FreeAndNil"
(classes only) |
(Example) |
||
Line 4: | Line 4: | ||
procedure FreeAndNil( var obj ); | procedure FreeAndNil( var obj ); | ||
</syntaxhighlight> | </syntaxhighlight> | ||
+ | |||
+ | Example: | ||
+ | |||
+ | <syntaxhighlight> | ||
+ | {$mode ObjFPC} | ||
+ | uses SysUtils; | ||
+ | |||
+ | type | ||
+ | SomeClass = class(TObject) | ||
+ | destructor Destroy; override; | ||
+ | end; | ||
+ | |||
+ | destructor SomeClass.Destroy; | ||
+ | begin | ||
+ | WriteLn('SomeClass Destructor called'); | ||
+ | inherited; | ||
+ | end; | ||
+ | |||
+ | var | ||
+ | myClass : SomeClass; | ||
+ | myClass2: SomeClass; | ||
+ | begin | ||
+ | myClass := SomeClass.Create; | ||
+ | WriteLn('myClass is assigned? ', Assigned(myClass)); | ||
+ | myClass2 := SomeClass.Create; | ||
+ | WriteLn('myClass2 is assigned? ', Assigned(myClass2)); | ||
+ | myClass.Destroy; | ||
+ | WriteLn('myClass is assigned? ', Assigned(myClass)); | ||
+ | FreeAndNil(myClass2); | ||
+ | WriteLn('myClass2 is assigned? ', Assigned(myClass2)); | ||
+ | // assigning Nil after destructor is called is the same as | ||
+ | // FreeAndNil | ||
+ | myClass := Nil; | ||
+ | WriteLn('myClass is assigned? ', Assigned(myClass)); | ||
+ | end. | ||
+ | </syntaxhighlight> | ||
+ | |||
+ | '''Output:'''<br/> | ||
+ | myClass is assigned? TRUE<br/> | ||
+ | myClass2 is assigned? TRUE<br/> | ||
+ | SomeClass Destructor called<br/> | ||
+ | myClass is assigned? TRUE<br/> | ||
+ | SomeClass Destructor called<br/> | ||
+ | myClass2 is assigned? FALSE<br/> | ||
+ | myClass is assigned? FALSE<br/> |
Revision as of 12:07, 19 August 2016
FreeAndNil is a procedure defined in the SysUtils unit of the Free Pascal Runtime Library. It calls an object's constructor (via TObject.Free) and also sets the object variable (which is a reference to heap memory created by a constructor call) to nil. If you just call an object's destructor, Assigned will still return True for the object variable. But after calling FreeAndNil, Assigned will return False for the object variable. While the procedure has an untyped parameter, it is only for use with object references - that is variables that are instances of a Class.
procedure FreeAndNil( var obj );
Example:
{$mode ObjFPC}
uses SysUtils;
type
SomeClass = class(TObject)
destructor Destroy; override;
end;
destructor SomeClass.Destroy;
begin
WriteLn('SomeClass Destructor called');
inherited;
end;
var
myClass : SomeClass;
myClass2: SomeClass;
begin
myClass := SomeClass.Create;
WriteLn('myClass is assigned? ', Assigned(myClass));
myClass2 := SomeClass.Create;
WriteLn('myClass2 is assigned? ', Assigned(myClass2));
myClass.Destroy;
WriteLn('myClass is assigned? ', Assigned(myClass));
FreeAndNil(myClass2);
WriteLn('myClass2 is assigned? ', Assigned(myClass2));
// assigning Nil after destructor is called is the same as
// FreeAndNil
myClass := Nil;
WriteLn('myClass is assigned? ', Assigned(myClass));
end.
Output:
myClass is assigned? TRUE
myClass2 is assigned? TRUE
SomeClass Destructor called
myClass is assigned? TRUE
SomeClass Destructor called
myClass2 is assigned? FALSE
myClass is assigned? FALSE