paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-25 10:40:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

added checks for TDBMemo if write is possible

Browse Source 
git-svn-id: trunk@8283 -
This commit is contained in:
mattias 2005-12-09 09:59:28 +00:00
parent 8e22800348
commit 61d3fe6aa4
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/dbmemo.inc
View File

@ -1,4 +1,4 @@
{%MainUnit ../dbctrls.pas}
{%MainUnit ../dbctrls.pp}
{
*****************************************************************************
* *
@ -109,6 +109,9 @@ end;
procedure TDBMemo.UpdateData(Sender: TObject);
begin
if not FDBMemoLoaded then exit;
if FDataLink=nil then exit;
if not FDataLink.CanModify then exit;
FDataLink.Field.AsString:=Text;
end;