paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-26 15:10:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* replaced TObjectList by TList because it generated a

Browse Source 
winunits-base <-> fcl-base dependancy conflict.

git-svn-id: trunk@13877 -
This commit is contained in:
marco 2009-10-16 21:58:12 +00:00
parent 3f75bea982
commit e6fe8300be
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/winunits-base/src/comobj.pp
View File

@ -21,7 +21,7 @@ unit comobj;
{define DEBUG_COM}
uses
Windows,Types,Variants,Sysutils,ActiveX,contnrs;
Windows,Types,Variants,Sysutils,ActiveX,classes;
type
EOleError = class(Exception);
@ -74,7 +74,7 @@ unit comobj;
TComClassManager = class(TObject)
private
fClassFactoryList: TObjectList;
fClassFactoryList: TList;
public
constructor Create;
destructor Destroy; override;
@ -462,12 +462,18 @@ implementation
constructor TComClassManager.Create;
begin
fClassFactoryList := TObjectList.create(true);
fClassFactoryList := TList.create({true});
end;
destructor TComClassManager.Destroy;
var i : integer;
begin
if fClassFactoryList.count>0 Then
begin
for i:=fClassFactoryList.count-1 downto 0 do
tobject(fClassFactoryList[i]).Free;
end;
fClassFactoryList.Free;
end;