paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 03:11:39 +01:00
Code Issues Packages Projects Releases Wiki Activity

- check for editable state in SetFieldData

Browse Source
This commit is contained in:
joost 2005-05-07 14:41:00 +00:00
parent 37a0e8db97
commit 734aa62d36
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
fcl/db/bufdataset.inc
View File

@ -421,6 +421,11 @@ var
FieldUpdBuf : PFieldUpdateBuffer; FieldUpdBuf : PFieldUpdateBuffer;
begin begin
if not (state in [dsEdit, dsInsert]) then
begin
DatabaseErrorFmt(SNotInEditState,[NAme],self);
exit;
end;
If Field.Fieldno > 0 then // If = 0, then calculated field or something If Field.Fieldno > 0 then // If = 0, then calculated field or something
begin begin
CurrBuff := ActiveBuffer; CurrBuff := ActiveBuffer;