Преглед на файлове

* call validate in setfielddata

git-svn-id: trunk@17419 -
blikblum преди 14 години
родител
ревизия
e54c0c7449
променени са 1 файла, в които са добавени 2 реда и са изтрити 0 реда
  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