paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 00:09:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* using value instead of avalue does not properly set bound because getvalueasvariant

Browse Source 
returns 0.0 if isnull. Mantis 17819, patch from Martin Schreiber.

git-svn-id: trunk@16392 -
This commit is contained in:
marco 2010-11-21 14:46:26 +00:00
parent 9d8d518029
commit 3b7bb9da6a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-db/src/base/dsparams.inc
View File

@ -678,7 +678,7 @@ end;
Procedure TParam.SetAsVariant(const AValue: Variant); Procedure TParam.SetAsVariant(const AValue: Variant);
begin begin
FValue:=AValue; FValue:=AValue;
FBound:=not VarIsClear(Value); FBound:=not VarIsClear(AValue);
if FDataType = ftUnknown then if FDataType = ftUnknown then
case VarType(Value) of case VarType(Value) of
varBoolean : FDataType:=ftBoolean; varBoolean : FDataType:=ftBoolean;