瀏覽代碼

Permitindo retornar um objeto de Date no AsJSValue do TField.

Henrique Gottardi Werlang 4 年之前
父節點
當前提交
6a2412fd97
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      packages/fcl-db/db.pas

+ 1 - 1
packages/fcl-db/db.pas

@@ -6938,7 +6938,7 @@ function TDateTimeField.GetAsJSValue: JSValue;
 
 
 begin
 begin
   Result:=GetData;
   Result:=GetData;
-  if Not isString(Result) then
+  if Not isString(Result) and not IsObject(Result) then
     Result:=Null;
     Result:=Null;
 end;
 end;