paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 21:29:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Luiz Americo to replace TList by TFPList in TLookupList, bug #13225

Browse Source 
git-svn-id: trunk@12774 -
This commit is contained in:
joost 2009-02-22 17:36:23 +00:00
parent ee123bbaf9
commit e4495fc350
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-db/src/base/db.pas
View File

@ -245,7 +245,7 @@ type
TLookupList = class(TObject) TLookupList = class(TObject)
private private
FList: TList; FList: TFPList;
public public
constructor Create; constructor Create;
destructor Destroy; override; destructor Destroy; override;
@ -2295,14 +2295,14 @@ end;
constructor TLookupList.Create; constructor TLookupList.Create;
begin begin
FList := TList.Create; FList := TFPList.Create;
end; end;
destructor TLookupList.Destroy; destructor TLookupList.Destroy;
begin begin
if FList <> nil then Clear; Clear;
FList.Free; FList.Destroy;
inherited Destroy; inherited Destroy;
end; end;