Нужна помощь с сортировкой в Delphi

[Dumacuk93]

Препод попросил объяснить эту процедуру. Она рабочая. Единственное, сортировка идет по первой цифре т.е. от 0 до 9. Например число 256 будет меньше чем число 3. как это исправить? и как мне объяснить преподавателю: что такое aCol, SlSort,SlRow и т.д.! что к чему присвоено и какой метода сортировки использован? за ранее благодарен)

P.s. программу писал не сам, а сам в программирование не шарю(((

procedure TForm1.Button1Click(Sender: TObject);
var
  SlSort, SlRow : TStringList;
  i, j, aCol : Integer;
begin
  aCol := ComboBox1.ItemIndex;  
  SlSort := TStringList.Create;    
  for i := StrinGgrid1.FixedRows to StrinGgrid1.RowCount - 1 do begin
    SlRow := TStringList.Create;
    SlRow.Assign(StrinGgrid1.Rows[i]);
    SlSort.AddObject(StrinGgrid1.Cells[aCol, i], SlRow);
  end;
  SlSort.Sort;
  j := 0;
  for i := StrinGgrid1.FixedRows to StrinGgrid1.RowCount - 1 do begin

    SlRow := Pointer(SlSort.Objects[j]);
    StrinGgrid1.Rows[i].Assign(SlRow);
    SlRow.Free;
    Inc(j);
  end;
  SlSort.Free;

end;

[puporev]

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

программу писал не сам

Так нужно самому писать или думать что сдираешь.
Вот напиши свое задание.

[Dumacuk93]

Так я и хочу разобраться.

Вот например сортирую по "цене за один сканер" а значение 234 она приравнивает к 2. как сделать что бы она 2х и 3х значные числа сравнивала?

[come-on]

Вам же сказали что сравниваются строки, а не числа.
строка "5" всегда "больше" чем "234", а число 5 всегда меньше чем 234, что не понятно?

[Dumacuk93]

Ладно спасибо)
А можете помочь тогда разобраться что и как в этой процедуре?
Типа:

procedure TForm1.Button1Click(Sender: TObject);
var
  SlSort, SlRow : TStringList;
  i, j, aCol : Integer;
begin
  aCol := ComboBox1.ItemIndex;  // .....?? 
  SlSort := TStringList.Create;    // .....??
  for i := StrinGgrid1.FixedRows to StrinGgrid1.RowCount - 1 do begin // .....??
    SlRow := TStringList.Create;
    SlRow.Assign(StrinGgrid1.Rows[i]);
    SlSort.AddObject(StrinGgrid1.Cells[aCol, i], SlRow);
  end;
  SlSort.Sort;
  j := 0;
  for i := StrinGgrid1.FixedRows to StrinGgrid1.RowCount - 1 do begin

    SlRow := Pointer(SlSort.Objects[j]);
    StrinGgrid1.Rows[i].Assign(SlRow);
    SlRow.Free;
    Inc(j);
  end;
  SlSort.Free;

end;

[phomm]

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