* Patch from Ondrej Pokorny to fix issue #33710 (clear param value when not needed)

git-svn-id: trunk@38949 -

packages/fcl-db/src/base/dsparams.inc

@@ -840,6 +840,7 @@ Var
   VT : Integer;
 
 begin
+  if FDataType=AValue then Exit;
   FDataType:=AValue;
   VT:=FieldTypetoVariantMap[AValue];
   If (VT=varError) then