paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-28 09:51:44 +01:00
Code Issues Packages Projects Releases Wiki Activity

lcl: ensure that reset is Modified in TFieldDataLink.UpdateData even if an exception occurs. Issue #26081

Browse Source 
git-svn-id: trunk@44867 -
This commit is contained in:
blikblum 2014-05-01 13:34:22 +00:00
parent 9cc96a93a2
commit 759e87ceb6
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/dbctrls.pp
View File

@ -1568,11 +1568,12 @@ procedure TFieldDataLink.UpdateData;
begin begin
if not IsModified then if not IsModified then
exit; exit;
try
if Assigned(FOnUpdateData) then if Assigned(FOnUpdateData) then
FOnUpdateData(Self); FOnUpdateData(Self);
finally
IsModified := False; IsModified := False;
end;
end; end;
{ Delphi Help -> { Delphi Help ->