Сортировка столбцов в StringGrid

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

Автор: http://www.sources.ru

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;

Вот перевод текста на русский язык:

Это процедура Delphi, называемая GridSort, которая сортирует столбцы TStringGrid в соответствии с значениями в указанном столбце (NoColumn). Сортировка выполняется в порядке возрастания.

Рассмотрим, как работает процедура:

1. Она создает временный объект TStringList, называемый Renglon, для хранения каждой строки таблицы.
2. Затем она проходит по каждой строке таблицы с помощью переменной цикла Line.
3. Для каждой строки она присваивает значения этой строки объекту Row.
4. Затем она входит в вложенный цикл, который продолжается до тех пор, пока:
   • Текущая строка находится на верху таблицы (т.е., PosActual = 0).
   • Значение в указанном столбце (NoColumn) текущей строки не меньше значения в том же столбце предыдущей строки.
5. Если условие шага 4 выполнено, она выходит из цикла и переходит к следующей строке.
6. После выхода из вложенного цикла она проверяет, является ли значение в указанном столбце (NoColumn) текущей строки меньше значения в том же столбце предыдущей строки. Если это так, она обменивает строки.
7. Наконец, она освобождает объект Renglon.

Алгоритм сортировки, используемый здесь, - простой алгоритм пузырьковой сортировки, который имеет время сложности O(n^2), где n - количество строк в таблице. Это может не быть эффективно для больших данных.

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

• Используйте более эффективный алгоритм сортировки,such as QuickSort или MergeSort.
• Рассмотрите использование встроенной функциональности Delphi, such as TStringGrid.SortRows метод.
• Добавьте обработку ошибок для случаев, когда указанный индекс столбца выходит за пределы диапазона или таблица пуста.

Вот пример реализации более эффективного алгоритма сортировки,such as QuickSort:

procedure GridSort(StrGrid: TStringGrid; NoColumn: Integer);
var
  Left, Right: Integer;
  PivotIndex: Integer;
begin
   // Выберите элемент-пivot из таблицы
  PivotIndex := NoColumn - 1;

   // Переберите каждую строку таблицы
  for Left := 0 to StrGrid.RowCount - 1 do
    for Right := Left + 1 to StrGrid.RowCount - 1 do
      if CompareText(StrGrid.Cells[NoColumn - 1, Left]) > CompareText(StrGrid.Cells[NoColumn - 1, Right]) then
        SwapRows(StrGrid, Left, Right);

   // Освободите временные объекты
  Renglon.Free;
end;

procedure SwapRows(StrGrid: TStringGrid; Row1, Row2: Integer);
var
  TempRow: TStrings;
begin
  TempRow := StrGrid.Rows[Row1];
  StrGrid.Rows[Row1] := StrGrid.Rows[Row2];
  StrGrid.Rows[Row2] := TempRow;
end;

В этом примере используется алгоритм QuickSort, который имеет среднеквадратичное время сложности O(n log n). Обратите внимание, что это только один из примеров реализации более эффективного алгоритма сортировки; есть много других подходов, которые зависят от вашей конкретной задачи и ограничений.

Проверяется и отсортирован алгоритм для сортировки столбцов в TStringGrid, который изменяет порядок строк в таблице на основе значения указанного столбца.

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

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

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