paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-08 18:31:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Check browse-mode before checking readonly on TDataset.edit

Browse Source 
git-svn-id: trunk@5383 -
This commit is contained in:
joost 2006-11-14 21:25:38 +00:00
parent 41c23b8904
commit ee2d2ac48e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fcl/db/dataset.inc
View File

@ -1380,6 +1380,7 @@ end;
Procedure TDataset.Edit;
begin
CheckBrowseMode;
If Not CanModify then
DatabaseError(SDatasetReadOnly,Self);
If State in [dsedit,dsinsert] then exit;
@ -1388,7 +1389,6 @@ begin
Append;
Exit;
end;
CheckBrowseMode;
DoBeforeEdit;
If Not TryDoing(@InternalEdit,OnEditError) then
exit;