diff options
| author | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-11-21 14:46:26 +0000 |
|---|---|---|
| committer | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-11-21 14:46:26 +0000 |
| commit | 24d03897fe179d33b2a01770aa411adaa561530b (patch) | |
| tree | 744d16eaa0e4084ebe3cc68e66645e8b3aa7ac86 /packages/fcl-db | |
| parent | f6a3f0edf5d055f57ddfa2020498516ca305e4cf (diff) | |
| download | fpc-24d03897fe179d33b2a01770aa411adaa561530b.tar.gz | |
* using value instead of avalue does not properly set bound because getvalueasvariant
returns 0.0 if isnull. Mantis 17819, patch from Martin Schreiber.
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@16392 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/fcl-db')
| -rw-r--r-- | packages/fcl-db/src/base/dsparams.inc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/fcl-db/src/base/dsparams.inc b/packages/fcl-db/src/base/dsparams.inc index 060a8049e4..a27761020b 100644 --- a/packages/fcl-db/src/base/dsparams.inc +++ b/packages/fcl-db/src/base/dsparams.inc @@ -678,7 +678,7 @@ end; Procedure TParam.SetAsVariant(const AValue: Variant); begin FValue:=AValue; - FBound:=not VarIsClear(Value); + FBound:=not VarIsClear(AValue); if FDataType = ftUnknown then case VarType(Value) of varBoolean : FDataType:=ftBoolean; |