From 9e93e4293bfbad92333f2a403188e1e77b60c3be Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sun, 6 Apr 2014 11:22:49 +0000
Subject: [PATCH] * Only put unbound params in the list of fieldnames (bug ID
 25955)

git-svn-id: trunk@27482 -
---
 packages/fcl-db/src/base/datasource.inc | 18 ++++++++++++------
 1 file changed, 12 insertions(+), 6 deletions(-)

diff --git a/packages/fcl-db/src/base/datasource.inc b/packages/fcl-db/src/base/datasource.inc
index d0414b7569..c63afb518b 100644
--- a/packages/fcl-db/src/base/datasource.inc
+++ b/packages/fcl-db/src/base/datasource.inc
@@ -463,6 +463,8 @@ Var
   DS : TDataset;
   F  : TField;
   I : Integer;
+  P : TParam;
+
 
 begin
   FN:='';
@@ -472,13 +474,17 @@ begin
     F:=Nil;
     For I:=0 to FParams.Count-1 do
       begin
-      If Assigned(DS) then
-        F:=DS.FindField(FParams[i].Name);
-      If (Not Assigned(DS)) or (not DS.Active) or (F<>Nil) then
+      P:=FParams[i];
+      if not P.Bound then
         begin
-        If (FN<>'') then
-          FN:=FN+';';
-        FN:=FN+FParams[i].Name; 
+        If Assigned(DS) then
+          F:=DS.FindField(P.Name);
+        If (Not Assigned(DS)) or (not DS.Active) or (F<>Nil) then
+          begin
+          If (FN<>'') then
+            FN:=FN+';';
+          FN:=FN+P.Name;
+          end;
         end;
       end;
     end;