paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 14:09:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-db: dbase: call inherited InternalPost to check required fields. Revealed by test TestRequired

Browse Source 
git-svn-id: trunk@33085 -
This commit is contained in:
lacak 2016-02-12 10:07:08 +00:00
parent ed2488eb03
commit f55ab74e6a
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-db/src/base/dataset.inc
View File

@ -1028,7 +1028,7 @@ end;
procedure TDataSet.InternalPost;
Procedure Checkrequired;
Procedure CheckRequiredFields;
Var I : longint;
@ -1042,7 +1042,7 @@ procedure TDataSet.InternalPost;
end;
begin
Checkrequired;
CheckRequiredFields;
end;
procedure TDataSet.InternalSetToRecord(Buffer: TRecordBuffer);

2
packages/fcl-db/src/dbase/dbf.pas
View File

@ -1428,6 +1428,8 @@ var
pRecord: pDbfRecord;
I, newRecord: Integer;
begin
// check required fields
inherited;
// if internalpost is called, we know we are active
pRecord := pDbfRecord(ActiveBuffer);
// commit blobs