сортировка в стринггриде

[Євгеній Бєлік]

Добрый вечер!
У меня есть данные в стринггриде:
в столбце записаны числа (флоат) в диапазоне c cells[1,1] по cells[1,j], каким образом можно их сортировать по убыванию, что бы строки тоже менялись, т.е. сортировка строк с привязкой с числам с того диапазона.

[eval]

данные в стринг грид откуда попадают?

[Євгеній Бєлік]

из файла XLS

[eval]

как ?

[Євгеній Бєлік]

procedure Xls_Open(XLSFile:string; Grid:TStringGrid; Time:TLabel; LimR:integer; LimC:integer);
 const
  xlCellTypeLastCell = $0000000B;
var
  ExlApp, Sheet, FData, WorkSheet: OLEVariant;
  i, j, r, c, lengthR, lengthC:integer;

begin
  //создаем объект Excel
  ExlApp := CreateOleObject('Excel.Application');

  //делаем окно Excel невидимым
  ExlApp.Visible := false;

  //открываем файл XLSFile
  ExlApp.Workbooks.Open(XLSFile);

  //создаем объект Sheet(страница) и указываем номер листа (1)
  //в книге, с которого будем осуществлять чтение
  Sheet := ExlApp.Workbooks[ExtractFileName(XLSFile)].WorkSheets[1];

  //активируем последнюю ячейку на листе
  Sheet.Cells.SpecialCells(xlCellTypeLastCell, EmptyParam).Activate;

    WorkSheet:=ExlApp.ActiveWorkbook.ActiveSheet;
    r:=WorkSheet.UsedRange.Rows.Count;
    c:=WorkSheet.UsedRange.Columns.Count;
    FData:=WorkSheet.UsedRange.Value;
    Grid.RowCount:=LimR;
    Grid.ColCount:=LimC;

    //считываем значение из каждой ячейки и копируем в нашу таблицу
     for j:= 0 to LimR-1 do //rows
       for i:= 0 to LimC-1 do // colunms
       Grid.Cells[i,j]:=FData[j+1,i+1];

 //закрываем приложение Excel
 ExlApp.Quit;

 //очищаем выделенную память
 ExlApp := Unassigned;
 Sheet := Unassigned;

[Stilet]

http://delphiworld.narod.ru/_all_articles_.html
Раздел Сортировка - [28]
Там есть для грида пример

[Євгеній Бєлік]

спасибо, с того списка переделал один вариант, и помогло