paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-03 13:59:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

lcl: in TDBLookup remove unnecessary initialization and use destroy for objects created unconditionally

Browse Source 
git-svn-id: trunk@30330 -
This commit is contained in:
blikblum 2011-04-17 01:31:30 +00:00
parent 3cbd34d275
commit 574d3f7e6c
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/include/dblookup.inc
View File

@ -72,16 +72,16 @@ begin
FListLink.Control := Self;
FListLink.OnActiveChange := @ActiveChange;
FListLink.OnEditingChange:=@EditingChange;
FHasLookUpField:= False;
FListLinkTmpSetActive := False;
FLookupCache := False;
//FHasLookUpField:= False;
//FListLinkTmpSetActive := False;
//FLookupCache := False;
end;
destructor TDBLookup.Destroy;
begin
FDataFields.Free;
FKeyFields.Free;
FListLink.Free;
FDataFields.Destroy;
FKeyFields.Destroy;
FListLink.Destroy;
FLookupList.Free;
inherited Destroy;
end;