Сортировка в StringGrid

[chex01]

Доброго времени суток!
Есть StringGrid, в нём два столбца(Ф.И.О. и Цифра). Данный код осуществляет сортировку по первому столбцу:

procedure GridSort2(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 = 1) or    //if 1 не сортировать первую строчку
         (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;

Что в нём нужно изменить, что бы сортировка была по второму столбцу?

[Serge_Bliznykov]

procedure GridSort2(StrGrid: TStringGrid; NoColumn: Integer);

Что в нём нужно изменить, что бы сортировка была по второму столбцу?

в нём - НИЧЕГО.

А чтобы сортировало по второму столбцу, очевидно, что вызвать процедуру с параметром, равным ВТОРОМУ столбцу:

  GridSort2( StringGrid1 { <-- указать ВашГрид }, 1 { <-- номер второго столбца} );

p.s. учтите, что строки сравниваются именно как строки, поэтому строчка '3' будет старше, чем строчки: '1', '123' и даже '1000000'!

[chex01]

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

p.s. учтите, что строки сравниваются именно как строки

Второй столбик цифры, ну кроме первой строчки, там что то типо заголовка. Можно как нибудь по другому?

з.ы. знаю, что не положено, но всё же задам дополнительный вопрос в этой теме. Как сделать ячейки [0,0] и [1,0] жирными и выравниванием

посередине

[Serge_Bliznykov]

Второй столбик цифры, ну кроме первой строчки, там что то типо заголовка. Можно как нибудь по другому?

ну тогда попробуйте заменить код:

      if (PosActual = 1) or    //if 1 не сортировать первую строчку
         (Row.Strings[NoColumn] >= StrGrid.Cells[NoColumn,PosActual-1])
        then break;

на такой:

      if (PosActual = 1) or    //if 1 не сортировать первую строчку
         (StrToFloatDef(Row.Strings[NoColumn],0) >= StrToFloatDef(StrGrid.Cells[NoColumn,PosActual-1],0))
        then break;

[chex01]

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

ну тогда попробуйте заменить код

Попробовал, сортировка происходит, но значения поднимаясь вверх затирают друг друга. (*никто не понял*)
Прикреплю лучше исходник. Если не сложно, помогите пожалуйста.

Опция сортировки становится доступной после нажатию на кнопку "Получить данные"

Я так понял никто не знает как решить эту проблему.

[Stilet]

Неправильно понял. Интернет знает:
http://delphiworld.narod.ru/base/sg_col_sort.html
http://delphiworld.narod.ru/base/sl_custom_sort.html
http://delphiworld.narod.ru/base/sg_sort3.html
http://delphiworld.narod.ru/base/tst..._val_sort.html
Выбирай метод )