Delphi: Сортировка строк в StringGrid, критерий - элемент ячейки

[Andris]

Всем привет! Подскажите плиз что да как...
В компаненте StringGrid много строк и 7 столбцов. Задача в том, что бы отсортировать нажатием кнопки строки. В первых шести столбцах имена фамилии и тд, последний столбец определен под возраст. Вот по возрасту как строки отсортировать?

[pu4koff]

выбираем любой понравившийся метод сортировки и сортируем на здоровье

[KORT]

переделай чуть-чуть и все, точнее удали не нужное....

procedure TPagesDlg.Sort(S:Integer);
  var
    A:array of array of String;
    Min:Integer;
    j,i,k,y:Integer;
    Buf:String;
  begin
    SetLength(A,ComboBox1.Items.Count,4);
      For i:=0 to ComboBox1.Items.Count-1 do
        begin
          A[i,0]:=(StringGrid1.Cells[0,i+1]);
          A[i,1]:=(StringGrid1.Cells[1,i+1]);
          A[i,2]:=(StringGrid1.Cells[2,i+1]);
          A[i,3]:=(StringGrid1.Cells[3,i+1]);
        end;
          for i:=0 to ComboBox1.Items.Count-1 do
            begin
              Min:=i;
                For j:=i+1 to ComboBox1.Items.Count-1 do
                  begin
                    If S=0 then
                      If A[j,0]<A[Min,0] then
                        Min:=j;
                          If S=1 then
                            If A[j,0]>A[Min,0] then
                              Min:=j;
                  end;
                    For y:=0 to 3 do
                      begin
                        Buf:=A[i,y];
                        A[i,y]:=A[Min,y];
                        A[Min,y]:=Buf;
                      end;
            end;
              For y:=0 to 3 do
                For k:=0 to ComboBox1.Items.Count-1 do
                  begin
                    StringGrid1.Cells[y,k+1]:=A[k,y];
                  end;
  end;

[Andris]

А если я пошел таким путем и решил осуществить задуманное через список. Столкнулся с проблемой, не работает что то... Всесто того что нужно в итоге я получаю последнюю строку из первоначального стринграда и она копируеся по всем остальным строкам...
Поскажите плиз как исправить и в чем я не прав
зы: нужно данные изStringGrid отсортировать и отразить изменения в нем же, до сортировки пока не дошел, сначао нужно понять как вывести результат...

/////   {создание списка}   /////
    with StringGrid1 do
    begin
      MyList := TList.Create;
      for j := 1 to 10 do
      begin    {Заполнение списка}
        New(Person);
        Person^.Country := Cells[1, j];
        Person^.Gold := StrToInt(Cells[2, j]);
        Person^.Silver := StrToInt(Cells[3, j]);
        Person^.Bronze := StrToInt(Cells[4, j]);
        Person^.AllMedals := StrToInt(Cells[5, j]);
        Person^.Scor := StrToInt(Cells[6, j]);
        MyList.Add(Person);   {добавление эл-та в список}
      end; {for j}
    end;   {with StringGrid1}

    with StringGrid1 do              //очистка
      for j := 1 to RowCount -1 do   //
        StringGrid1.Rows[j].Clear;   //

  {ВЫВОД РЕЗУЛЬТАТА}
    with StringGrid1 do
      for j := 1 to Mylist.Count do
      begin
        Cells[1, j] := Person^.Country;
        Cells[2, j] := IntToStr(Person^.Gold);
        Cells[3, j] := IntToStr(Person^.Silver);
        Cells[4, j] := IntToStr(Person^.Bronze);
        Cells[5, j] := IntToStr(Person^.AllMedals);
        Cells[6, j] := IntToStr(Person^.Scor);
      end;

  ///// {Уничтожение списка MyList}
  for j := 0 to MyList.Count - 1 do
  begin
    Person := MyList[j];
    Dispose(Person); {уничтожаем эл-т списка}
  end;
  MyList.Free; {уничтожаем пустой список}

[Stilet]

На Delphi World (не понимаю почему люди постоянно игнорируют поисковые системы) есть превосходнейший пример сортировки по любой колонке.

[alexBlack]

{ВЫВОД РЕЗУЛЬТАТА}  
    with StringGrid1 do  
      for j := 1 to Mylist.Count do  
      begin  
        Person := MyList[j-1];        
        Cells[1, j] := Person^.Country;   
        Cells[2, j] := IntToStr(Person^.Gold);   
        Cells[3, j] := IntToStr(Person^.Silver);   
        Cells[4, j] := IntToStr(Person^.Bronze);   
        Cells[5, j] := IntToStr(Person^.AllMedals);   
        Cells[6, j] := IntToStr(Person^.Scor);   
      end;

[Andris]

огромный спасиб

[Andris]

а если вывод результата будет использоваться в программе многократно, то нужно соорудить процедуру... подскажите плиз как ето зделать
я так ето представляю,
procedure Codto(а вот тут что написать?);
begin
код...
end;
Спасибо.

[Карась]

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

а если вывод результата будет использоваться в программе многократно, то нужно соорудить процедуру... подскажите плиз как ето зделать
я так ето представляю,
procedure Codto(а вот тут что написать?);
begin
код...
end;
Спасибо.

Ничево

Или параметры которые нужны для вычислений.

http://www.delphibasics.ru/Procedure.php

[Andris]

Спасибо Сылка принесла пользу