Bladeren bron

* call validate in setfielddata

git-svn-id: trunk@17419 -
blikblum 14 jaren geleden
bovenliggende
commit
e54c0c7449
1 gewijzigde bestanden met toevoegingen van 2 en 0 verwijderingen
  1. 2 0
      packages/fcl-db/src/sqlite/customsqliteds.pas

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

@@ -1320,6 +1320,8 @@ begin
 
 
   if Field.FieldNo >= 0 then
   if Field.FieldNo >= 0 then
   begin
   begin
+    if State in [dsEdit, dsInsert] then
+      Field.Validate(Buffer);
     FieldOffset := Field.FieldNo - 1;
     FieldOffset := Field.FieldNo - 1;
     EditItem := FCacheItem;
     EditItem := FCacheItem;
   end
   end