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

* Fix bug #34135, patch by Andrea Urbani

Browse Source 
git-svn-id: trunk@39618 -
This commit is contained in:
michael 2018-08-15 17:18:17 +00:00
parent 677cc1c930
commit 3d7ce42194
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/sqldb/oracle/oracleconnection.pp
View File

@ -1203,7 +1203,7 @@ begin
qry.next;
while (name = qry.fields[0].asstring) and (not qry.eof) do
begin
Fields := Fields + ';' + trim(qry.Fields[2].asstring);
Fields := Fields + ';' + trim(qry.Fields[1].asstring);
qry.next;
end;
end;