paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 22:59:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed memleaks

Browse Source 
git-svn-id: trunk@2424 -
This commit is contained in:
lazarus 2002-08-17 23:41:21 +00:00
parent 115a37923c
commit 45c40ec1f9
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/lclproc.pas
View File

@ -54,7 +54,7 @@ var
function SendApplicationMessage(Msg: Cardinal; WParam, LParam: Longint):Longint; function SendApplicationMessage(Msg: Cardinal; WParam, LParam: Longint):Longint;
procedure OwnerFormDesignerModified(AComponent: TComponent); procedure OwnerFormDesignerModified(AComponent: TComponent);
function OffSetRect(var ARect: TRect; dx,dy: Integer): Boolean; function OffSetRect(var ARect: TRect; dx,dy: Integer): Boolean;
procedure FreeThenNil(var AnObject: TObject);
implementation implementation
@ -244,6 +244,14 @@ Begin
Result := False; Result := False;
end; end;
procedure FreeThenNil(var AnObject: TObject);
begin
if AnObject<>nil then begin
AnObject.Free;
AnObject:=nil;
end;
end;
initialization initialization
SendApplicationMessageFunction:=nil; SendApplicationMessageFunction:=nil;
OwnerFormDesignerModifiedProc:=nil; OwnerFormDesignerModifiedProc:=nil;