| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Сортировка по убыванию StringGrid [D7]
Ponchik © (2013-05-24 00:15:00)Здравствуйте . есть код сортировки по возрастанию. что нужно изменить,чтобы была сортировка по убыванию . подскажите,пожалуйста
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;
Дмитрий Белькевич (2013-05-29 09:25:00) [1]Может и плохой стиль, но...
procedure TForm42.ShowAt(ALeft, ATop: integer);
У меня везде так.
Jeer (2013-05-27 15:50:00) [2]> имеет номер 58, а последняя форма - 62. Ну и что?
Действительно - до числа зверя еще очень далеко.
Германн (2013-05-26 02:14:00) [3]
> brother © (25.05.13 11:28) [3]
>
> > TForm9
>
> нормальненько так...
У меня в папке Projects последний тестовый проект имеет номер 58, а последняя форма - 62. Ну и что?
:)
А если бы ОС не пришлось бы ставить заново уже два раза, так вообще бы были уже трехзначные числа.
asddas (2013-05-25 22:06:00) [4]
> нормальненько так...
зато другой разработчик в проекте не разберется, проще заново написать... :)
brother (2013-05-25 11:28:00) [5]> TForm9
нормальненько так...
MBo (2013-05-24 09:31:00) [6]ещё вариант - во втором цикле записывать строки в грид в обратном порядке
MBo (2013-05-24 06:26:00) [7]читаю справку вслух с выражением:
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.
| |
