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

[Илья71]

Всем привет. Нужна помощь застрял на 1 проблемке....
имеесться стрин грид в котором заносяться данные по одной из 5 колонок
нужно сделать сортировку...данные в ячейках этой колонки числовые остальные буквенные...как зделать сортировку чтоб первыми строками выводилась самое наименьшее число в последней самое большое

[evg_m]

заносяться данные по одной из 5 колонок

Откуда?

нужно сделать сортировку..

сортировать данные там откуда заносятся, а потом выводить ОТСОРТРОВАННЫЕ.

[Serge_Bliznykov]

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


ДОБАВЛЕНО

заполнить грид (для отладки)

procedure TForm1.btFillStringGridClick(Sender: TObject);
const
  SortColumn = 4; // числовой столбец, по которому сортировать (отсчёт от нуля)
var i, j : integer;
begin
  Randomize;
  StringGrid1.RowCount := 10;
  StringGrid1.ColCount := 7;
  for i := StringGrid1.FixedRows to StringGrid1.RowCount-1 do
    for j := StringGrid1.FixedCols to StringGrid1.ColCount-1 do
      if (j = SortColumn) then StringGrid1.Cells[j, i] := IntToStr(Random(20)+1)
      else StringGrid1.Cells[j, i] := 'a'+IntToStr(i*100+j);
end;

А вот, собственно, код сортировки...

procedure TForm1.btSortStringGridClick(Sender: TObject);
const
  SortColumn = 4; // числовой столбец, по которому сортировать (отсчёт от нуля)
var i, j, k : integer;
  sTemp : string;
begin
  {сортировка массива методом простых обменов ("пузырька") }
  for i:=StringGrid1.FixedRows to StringGrid1.RowCount-2 do
    for j:=i+1 to StringGrid1.RowCount-1 do
      if StrToIntDef(StringGrid1.Cells[SortColumn,i],-1) >
               StrToIntDef(StringGrid1.Cells[SortColumn,j],-1) then
        for k:=StringGrid1.FixedCols to StringGrid1.ColCount-1 do
          begin
            sTemp := StringGrid1.Cells[k,i];
            StringGrid1.Cells[k,i] := StringGrid1.Cells[k,j];
            StringGrid1.Cells[k,j] := sTemp;
          end;

end;

[Илья71]

большое спасибо!