pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxSortZeos - fix sort for TZAbstractRODataset

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3743 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2014-11-18 10:25:22 +00:00
parent 7c7258b395
commit 396caef541
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/rx/trunk/exsortzeos.pas
View File

@ -121,13 +121,13 @@ procedure TZeosDataSetSortEngine.Sort(FieldName: string; ADataSet: TDataSet;
Asc: boolean; SortOptions: TRxSortEngineOptions);
begin
if not Assigned(ADataSet) then exit;
if ADataSet is TZAbstractDataset then
if ADataSet is TZAbstractRODataset then
begin
TZAbstractDataset(ADataSet).SortedFields:=FieldName;
TZAbstractRODataset(ADataSet).SortedFields:=FieldName;
if Asc then
TZAbstractDataset(ADataSet).SortType:=stAscending
TZAbstractRODataset(ADataSet).SortType:=stAscending
else
TZAbstractDataset(ADataSet).SortType:=stDescending;
TZAbstractRODataset(ADataSet).SortType:=stDescending;
end;
end;