paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 07:59:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: code cleanup of TDBEdit

Browse Source 
git-svn-id: trunk@32259 -
This commit is contained in:
blikblum 2011-09-10 17:36:02 +00:00
parent 4a01a6566d
commit 91a853eeb7
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/dbedit.inc
View File

@ -65,7 +65,6 @@ begin
//the changes have been validated
ValidateEdit;
FDataLink.Field.Text := Text;
//FDataLink.Field.AsString := Text;// I shouldn't have to do this, but text seems broken
end;
procedure TDBEdit.FocusRequest(Sender: TObject);
@ -295,8 +294,7 @@ end;
destructor TDBEdit.Destroy;
begin
FDataLink.Free;
FDataLink := nil;
FDataLink.Destroy;
inherited Destroy;
end;