Forráskód Böngészése

Call inherited method in InternalPost (check for required fields)

git-svn-id: trunk@31877 -
blikblum 10 éve
szülő
commit
da66980766
1 módosított fájl, 2 hozzáadás és 0 törlés
  1. 2 0
      packages/fcl-db/src/sqlite/customsqliteds.pas

+ 2 - 0
packages/fcl-db/src/sqlite/customsqliteds.pas

@@ -1037,6 +1037,8 @@ procedure TCustomSqliteDataset.InternalPost;
 var
 var
   ActiveItem: PDataRecord;
   ActiveItem: PDataRecord;
 begin
 begin
+  inherited InternalPost;
+
   if State <> dsEdit then
   if State <> dsEdit then
     InternalAddRecord(ActiveBuffer, True)
     InternalAddRecord(ActiveBuffer, True)
   else
   else