Сортировка по содержимому нужного столбца в TStringGrid

Delphi , Синтаксис , Сортировка

unit olimp_;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, StdCtrls;

type
  TForm1 = class(TForm)
    Tabl: TStringGrid;
    Button1: TButton;
    Label1: TLabel;
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormActivate(Sender: TObject);
begin
  tabl.Cells[0, 0] := 'Страна';
  tabl.Cells[1, 0] := 'Золотых';
  tabl.Cells[2, 0] := 'Серебряных';
  tabl.Cells[3, 0] := 'Бронзовых';
  tabl.Cells[4, 0] := 'Всего';
  tabl.Cells[5, 0] := 'Баллов';
  tabl.Cells[0, 1] := 'Австралия';
  tabl.Cells[0, 2] := 'Белоруссия';
  tabl.Cells[0, 3] := 'Великобритания';
  tabl.Cells[0, 4] := 'Германия';
  tabl.Cells[0, 5] := 'Италия';
  tabl.Cells[0, 6] := 'Китай';
  tabl.Cells[0, 7] := 'Корея';
  tabl.Cells[0, 8] := 'Куба';
  tabl.Cells[0, 9] := 'Нидерланды';
  tabl.Cells[0, 10] := 'Россия';
  tabl.Cells[0, 11] := 'США';
  tabl.Cells[0, 12] := 'Франция';
  tabl.Cells[0, 13] := 'Япония';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  c, r: integer; // номер колонки и строки таблицы
  s: integer; // всего медалей у команды
  p: integer; // очков у команды

  m: integer; // номер строки с максимальным количеством очков
  buf: array[0..5] of string; // буфер для обмена строк
  i: integer; // номер строки используется во время сортировки

begin
  for r := 1 to tabl.rowcount do // обработать все строки
  begin
    s := 0;
    // вычисляем общее кол-во медалей
    for c := 1 to 3 do
      if tabl.cells[c, r] <> '' then
        s := s + StrToInt(tabl.cells[c, r])
      else
        tabl.cells[c, r] := '0';
    // вычисляем количество очков
    p := 7 * StrToInt(tabl.cells[1, r]) +
      6 * StrToInt(tabl.cells[2, r]) +
      5 * StrToInt(tabl.cells[3, r]);

    // вывод результата
    tabl.cells[4, r] := IntToStr(s); // всего медалей
    tabl.cells[5, r] := IntToStr(p); // очков
  end;

  // сортировка таблицы по убыванию в соответствие
  // с количеством баллов (по содержимому 5-ого столбца)
  // сортировка методом выбора
  for r := 1 to tabl.rowcount - 1 do
  begin
    m := r; // максимальный элемент - в r-ой строке
    for i := r to tabl.rowcount - 1 do
      if StrToInt(tabl.cells[5, i]) > StrToInt(tabl.cells[5, m]) then
        m := i;

    if r <> m then
    begin // обменяем r-ую и m-ую строки таблицы
      for c := 0 to 5 do
      begin
        buf[c] := tabl.Cells[c, r];
        tabl.Cells[c, r] := tabl.Cells[c, m];
        tabl.Cells[c, m] := buf[c];
      end;
    end;
  end;
end;

end.

Эта проект Delphi использует компонент TStringGrid для отображения и сортировки данных. Проект состоит из единственной формы с кнопкой, меткой и контролем grid.

Код формы содержит два процедура: FormActivate и Button1Click.

В процедуре FormActivate grid инициализируется путем установки значений ячеек. Это создает таблицу с странами в строках и счетами медалей в столбцах.

В процедуре Button1Click выполняются следующие шаги:

1. Программа проходит по каждой строке grid, чтобы рассчитать общее количество медалей для каждой страны.
2. Затем она рассчитывает счёт для каждой страны, умножая количество золотых, серебряных и бронзовых медалей на 7, 6 и 5 соответственно.
3. Результаты отображаются в двух дополнительных столбцах: одном для общего количества медалей и другом для счёта.

Последняя часть процедуры - это алгоритм пузырьковой сортировки, который сортирует строки grid по счёту в порядке убывания (т.е., с наивысшим счётом первым). Это делается путем сравнения каждого ряда счёта с следующим рядом счёта, обмениванием их если необходимо, и повторением этого процесса до тех пор, пока не будет больше обменов.

Вот предложенная улучшение:

Вместо реализации алгоритма пузырьковой сортировки вручную можно использовать функциональность сортировки, встроенную в Delphi. Компонент TStringGrid имеет метод Sort, который позволяет сортировать его строки по конкретным столбцам.

Можно модифицировать процедуру Button1Click следующим образом:

procedure TForm1.Button1Click(Sender: TObject);
begin
   // ... (предыдущий код)

   // Сортируем grid по счёту в порядке убывания
  Tabl.Sort;
  Tabl.SortColumn := 5; // Сортировка по столбцу 5 (счёт)
  Tabl.Descending := True;

   // ... (остальное код)
end;

Эта APPROACH более эффективна и легче поддерживаемая, чем реализация custom sorting алгоритма.

В статье описана сортировка TStringGrid по содержимому нужного столбца в Pascal-делопроме Delphi.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Сортировка ::