Сортировка по убыванию StringGrid

← →
Ponchik © (2013-05-24 00:15) [0]

Здравствуйте . есть код сортировки по возрастанию. что нужно изменить,чтобы была сортировка по убыванию . подскажите,пожалуйста

procedure TForm9.SgSort(aSg : TStringGrid; const aCol : Integer); var SlSort, SlRow : TStringList; i, j : Integer; begin SlSort := TStringList.Create; for i := aSg.FixedRows to aSg.RowCount - 1 do begin SlRow := TStringList.Create; SlRow.Assign(aSg.Rows[i]); SlSort.AddObject(aSg.Cells[aCol, i], SlRow); end; SlSort.Sort; j := 0; for i := aSg.FixedRows to aSg.RowCount - 1 do begin SlRow := Pointer(SlSort.Objects[j]); aSg.Rows[i].Assign(SlRow); SlRow.Free; Inc(j); end; SlSort.Free; end;

← →
MBo © (2013-05-24 06:26) [1]

читаю справку вслух с выражением:

Note: Sort uses AnsiCompareStr to sort the strings when CaseSensitive is true and AnsiCompareText when CaseSensitive is false. To provide your own comparison operator instead, use the CustomSort method.

← →
MBo © (2013-05-24 09:31) [2]

ещё вариант - во втором цикле записывать строки в грид в обратном порядке

← →
brother © (2013-05-25 11:28) [3]

> TForm9

нормальненько так...

← →
asddas (2013-05-25 22:06) [4]

> нормальненько так...

зато другой разработчик в проекте не разберется, проще заново написать... :)

← →
Германн © (2013-05-26 02:14) [5]

> brother © (25.05.13 11:28) [3]
>
> > TForm9
>
> нормальненько так...

У меня в папке Projects последний тестовый проект имеет номер 58, а последняя форма - 62. Ну и что?
:)
А если бы ОС не пришлось бы ставить заново уже два раза, так вообще бы были уже трехзначные числа.

> имеет номер 58, а последняя форма - 62. Ну и что?

Действительно - до числа зверя еще очень далеко.

← →
Дмитрий Белькевич (2013-05-29 09:25) [7]

Может и плохой стиль, но...

procedure TForm42.ShowAt(ALeft, ATop: integer);

У меня везде так.

Сортировка по убыванию StringGrid Найти похожие ветки