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

* Added check for descending index

Browse Source 
git-svn-id: trunk@8062 -
This commit is contained in:
michael 2007-07-15 10:56:38 +00:00
parent 6ce1a04ab7
commit 71152163bc
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-db/src/sqldb/interbase/ibconnection.pp
View File

@ -995,7 +995,8 @@ begin
'ind.rdb$relation_name, '+
'ind.rdb$unique_flag, '+
'ind_seg.rdb$field_name, '+
'rel_con.rdb$constraint_type '+
'rel_con.rdb$constraint_type, '+
'ind.rdb$index_type '+
'from '+
'rdb$index_segments ind_seg, '+
'rdb$indices ind '+
@ -1017,6 +1018,7 @@ begin
Fields := trim(qry.Fields[3].asstring);
If qry.fields[4].asstring = 'PRIMARY KEY' then options := options + [ixPrimary];
If qry.fields[2].asinteger = 1 then options := options + [ixUnique];
If qry.fields[5].asInteger = 1 then options:=options+[ixDescending];
qry.next;
while (name = trim(qry.fields[0].asstring)) and (not qry.eof) do
begin