Pārlūkot izejas kodu

* call validate in setfielddata

git-svn-id: trunk@17419 -
blikblum 14 gadi atpakaļ
vecāks
revīzija
e54c0c7449
1 mainītis faili ar 2 papildinājumiem un 0 dzēšanām
  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