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

* propagate ixDescending in bufdataset. Patch by Hert van Zwietering, Mantis #20043

Browse Source 
git-svn-id: trunk@19496 -
This commit is contained in:
marco 2011-10-15 16:20:12 +00:00
parent 43e9ffca3b
commit f005d71110
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/base/bufdataset.pas
View File

@ -916,7 +916,7 @@ begin
AField := TField(IndexFields[FieldNr]); AField := TField(IndexFields[FieldNr]);
ProcessFieldCompareStruct(AField,DBCompareStruct[FieldNr]); ProcessFieldCompareStruct(AField,DBCompareStruct[FieldNr]);
DBCompareStruct[FieldNr].Desc := (DescIndexFields.IndexOf(AField)>-1); DBCompareStruct[FieldNr].Desc := (DescIndexFields.IndexOf(AField)>-1) or (ixDescending in Options);
if (CInsIndexFields.IndexOf(AField)>-1) then if (CInsIndexFields.IndexOf(AField)>-1) then
DBCompareStruct[FieldNr].Options := [loCaseInsensitive] DBCompareStruct[FieldNr].Options := [loCaseInsensitive]
else else