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

RxDBGrid - fix sort on TRxMemDataSet

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3359 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2014-07-23 04:43:08 +00:00
parent 22100c2f16
commit 61f1cd1389
2 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/rx/trunk/rxmemds.pas
View File

@ -1661,7 +1661,7 @@ end;
procedure TRxMemoryData.SortOnFieldsEx(const FieldNames: string;
CaseInsensitive: Boolean; Asc: array of boolean);
begin
{ TODO -oalexs : Необходимо написать сортировку по массиву }
end;
procedure TRxMemoryData.Sort;

3
components/rx/trunk/rxsortmemds.pas
View File

@ -127,7 +127,8 @@ procedure TRxMemoryDataSortEngine.SortList(ListField: string;
ADataSet: TDataSet; Asc: array of boolean; SortOptions: TRxSortEngineOptions);
begin
if Assigned(ADataSet) then
(ADataSet as TRxMemoryData).SortOnFieldsEx(ListField, seoCaseInsensitiveSort in SortOptions, Asc);
// (ADataSet as TRxMemoryData).SortOnFieldsEx(ListField, seoCaseInsensitiveSort in SortOptions, Asc);
(ADataSet as TRxMemoryData).SortOnFields(ListField, seoCaseInsensitiveSort in SortOptions, Asc[0]);
end;
initialization