paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-09 13:11:04 +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)
private
FList: TList;
FList: TFPList;
public
constructor Create;
destructor Destroy; override;
@ -2295,14 +2295,14 @@ end;
constructor TLookupList.Create;
begin
FList := TList.Create;
FList := TFPList.Create;
end;
destructor TLookupList.Destroy;
begin
if FList <> nil then Clear;
FList.Free;
Clear;
FList.Destroy;
inherited Destroy;
end;