Procházet zdrojové kódy

* call validate in setfielddata

git-svn-id: trunk@17419 -
blikblum před 14 roky
rodič
revize
e54c0c7449
1 změnil soubory, kde provedl 2 přidání a 0 odebrání
  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
   begin
+    if State in [dsEdit, dsInsert] then
+      Field.Validate(Buffer);
     FieldOffset := Field.FieldNo - 1;
     EditItem := FCacheItem;
   end