Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 1 173

/ вопрос открыт /

Доброго времени суток, уважаемые эксперты!
Имеется таблица StringGrid. Необходимо отсортировать по полю.

Спасибо зарание.

mAx Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: mAx (статус: Посетитель)
Вопрос отправлен: 4 декабря 2007, 09:56
Состояние вопроса: открыт, ответов: 2.

Ответ #1. Отвечает эксперт: Feniks

Здравствуйте, mAx!
Алгоритмов сортировки очень много: от самого медленного до самого быстрого. На сколько я помню в стандартный пакет Делфи входит пример по работе с тремя алгоритмами по потокам. Если у Вас его нет, держите из атача (пример из Делфи 7).
К ответу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки ответа)

Ответ отправил: Feniks (статус: Бакалавр)
Время отправки: 4 декабря 2007, 10:22

Ответ #2. Отвечает эксперт: min@y™

Вот один из примеров Delphi World:

procedure GridSort(StrGrid: TStringGrid; NoColumn: Integer);
var
  Line, PosActual: Integer;
  Row: TStrings;
begin
  Renglon := TStringList.Create;
  for Line := 1 to StrGrid.RowCount - 1 do
  begin
    PosActual := Line;
    Row.Assign(TStringlist(StrGrid.Rows[PosActual]));
    while True do
    begin
      if (PosActual = 0) or (StrToInt(Row.Strings[NoColumn - 1]) >=
        StrToInt(StrGrid.Cells[NoColumn - 1, PosActual - 1])) then
        Break;
      StrGrid.Rows[PosActual] := StrGrid.Rows[PosActual - 1];
      Dec(PosActual);
    end;
    if StrToInt(Row.Strings[NoColumn - 1]) < StrToInt(StrGrid.Cells[NoColumn -
      1, PosActual]) then
      StrGrid.Rows[PosActual] := Row;
  end;
  Renglon.Free;
end;

Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 5 декабря 2007, 08:17


Мини-форум вопроса

Всего сообщений: 2; последнее сообщение — 4 декабря 2007, 10:44; участников в обсуждении: 1.
Feniks

Feniks (статус: Бакалавр), 4 декабря 2007, 10:24 [#1]:

Имя папки примера Threads.
Feniks

Feniks (статус: Бакалавр), 4 декабря 2007, 10:44 [#2]:

Вот еще несколько примеров по сортировки StringGrid-а.
Пример №1.


Пример №2.


Пример №3.
Сортировка по клику на заголовке столбца


Пример №4.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 12 декабря 2017, 16:49
Выполнено за 1.4 сек.
Рейтинг@Mail.ru