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

* Only put unbound params in the list of fieldnames (bug ID 25955)

Browse Source 
git-svn-id: trunk@27482 -
This commit is contained in:
michael 2014-04-06 11:22:49 +00:00
parent 198960b17c
commit 9e93e4293b
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
packages/fcl-db/src/base/datasource.inc
View File

@ -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;