IDE: fixed mem leak

git-svn-id: trunk@30818 -
This commit is contained in:
mattias 2011-05-19 20:16:01 +00:00
parent 5a93b962cf
commit db3b5ed9d7

View File

@ -218,6 +218,7 @@ type
const AMethod: TMethod);
procedure DoCallNotifyHandler(HandlerType: TPkgIntfHandlerType; Sender: TObject);
public
destructor Destroy; override;
function DoOpenPackageWithName(const APackageName: string;
Flags: TPkgOpenFlags;
ShowAbort: boolean): TModalResult; virtual; abstract;
@ -676,6 +677,15 @@ begin
FHandlers[HandlerType].CallNotifyEvents(Sender);
end;
destructor TPackageEditingInterface.Destroy;
var
h: TPkgIntfHandlerType;
begin
for h:=Low(FHandlers) to high(FHandlers) do
FreeAndNil(FHandlers[h]);
inherited Destroy;
end;
procedure TPackageEditingInterface.RemoveAllHandlersOfObject(AnObject: TObject);
var
HandlerType: TPkgIntfHandlerType;