paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-24 02:49:19 +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} {define DEBUG_COM}
uses uses
Windows,Types,Variants,Sysutils,ActiveX,contnrs; Windows,Types,Variants,Sysutils,ActiveX,classes;
type type
EOleError = class(Exception); EOleError = class(Exception);
@ -74,7 +74,7 @@ unit comobj;
TComClassManager = class(TObject) TComClassManager = class(TObject)
private private
fClassFactoryList: TObjectList; fClassFactoryList: TList;
public public
constructor Create; constructor Create;
destructor Destroy; override; destructor Destroy; override;
@ -462,12 +462,18 @@ implementation
constructor TComClassManager.Create; constructor TComClassManager.Create;
begin begin
fClassFactoryList := TObjectList.create(true); fClassFactoryList := TList.create({true});
end; end;
destructor TComClassManager.Destroy; destructor TComClassManager.Destroy;
var i : integer;
begin begin
if fClassFactoryList.count>0 Then
begin
for i:=fClassFactoryList.count-1 downto 0 do
tobject(fClassFactoryList[i]).Free;
end;
fClassFactoryList.Free; fClassFactoryList.Free;
end; end;