From 396caef54105a06f5256fca32df7ab9e2faed326 Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 18 Nov 2014 10:25:22 +0000
Subject: [PATCH] RxSortZeos - fix sort for TZAbstractRODataset

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3743 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/trunk/exsortzeos.pas | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/components/rx/trunk/exsortzeos.pas b/components/rx/trunk/exsortzeos.pas
index 1f05e93e6..9ba9a27be 100644
--- a/components/rx/trunk/exsortzeos.pas
+++ b/components/rx/trunk/exsortzeos.pas
@@ -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;