Recent

Author Topic: sort a tsWorksheetGrid  (Read 1739 times)

bobonwhidbey

  • Hero Member
  • *****
  • Posts: 630
    • Double Dummy Solver - free download
sort a tsWorksheetGrid
« on: May 12, 2017, 05:13:26 pm »
I think this is merely a problem of not including the right unit in my Uses statement. My compiler can't find the Sort procedure. It seems to me that Sort is a protected method of TsWorksheetGrid.

Code: Pascal  [Select][+][-]
  1. uses
  2.   Classes, SysUtils, FileUtil,Forms, Controls, Graphics, Dialogs,  StdCtrls, fpspreadsheetgrid, fpsTypes,
  3.   fpsUtils, fpsCell, fpsNumFormat, laz_fpspreadsheet;
  4.                                                          
  5.    Grid: TsWorksheetGrid;    
  6.  
  7. var
  8.   sortParams: TsSortParams;
  9. begin
  10.   Grid.LoadFromSpreadsheetFile('MyData.ods');
  11.   sortParams := InitSortParams(True, 1);
  12.   sortParams.Keys[0].ColRowIndex := 0;
  13.   sortParams.Keys[0].Options := [ssoCaseInsensitive];
  14.   Grid.Sort(sortParams, 1, 1, Grid.RowCount - 1, Grid.ColCount - 1);  
Lazarus 4.6 FPC 3.2.2 x86_64-win64-win32/win64

 

TinyPortal © 2005-2018