Сортировка в StringGrid с параметрами строки

[Sheeby]

Сообщение от Stilet

Тоесть? Это функция для сортировки колонок в компоненте StringGrid

ну...просто я не очень шарю в делфи... не знаю куда этот код вставить. подскажи, плиз

[Stilet]

Вставляй этот код сразу после implementation например, и вызывай его где нужно

GridSort(StringGrid1,1);

Отсортирит по второй колонке, ибо с нуля нумерация

[include669]

Сообщение от pu4koff

не нужен никакой листбокс. просто добавьте в var Renglon: TStringList;
И сортировка чисел тут у Вас. Вот поправил под имена:

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

Сортировка вызывается так:
GridSort(StringGrid1, 0);

спасибо помогло очень. а как сделать сортироаку по убыванию?

[include669]

сам разобрался, спасибо :-)