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

[Ant_M]

Добрый день. Ребят не могу разобраться с сортировкой. Имеется форма на которой столбцы именуются так
StringGrid1.Cells[1,0]:='ФИО';
StringGrid1.Cells[2,0]:='Факультет';
StringGrid1.Cells[3,0]:='Специальность';
StringGrid1.Cells[4,0]:='К-во баллов';
StringGrid1.Cells[5,0]:='Отделение';
StringGrid1.Cells[6,0]:='Серия паспорта';
StringGrid1.Cells[7,0]:='Номер паспорта';
StringGrid1.Cells[8,0]:='Серия аттестата';
StringGrid1.Cells[9,0]:='Наличие медали';
StringGrid1.Cells[10,0]:='Необходимость общежития';
и стороки
begin
with StringGRid1
do for i:=1 to RowCount-1 do
StringGrid1.Cells[0, i]:=IntToStr(i);
end;
end;

все это при создании формы.

Не могу разобраться как отсортировать столбец количество баллов по возрастанию так чтобы все остальные колонки в соответствии с ним двигались. помогите пожалуйста!

[BDA]

А отсортировать 1 столбец можете?
Если можете, то просто добавьте в код сортировки обмен значениями во всех требуемых столбцах.

[Ant_M]

дак вот что то совсем все печально. Я подумала что можно добавить значения в массив отсортировать методом пузырька и обратно добавить,но даже с этим плохо. вот попытка

procedure TForm4.Button3Click(Sender: TObject);
var
mas:array of array of integer;
i,j,m,n, min,imin :integer;
    begin
      m:=StringGrid1.RowCount;//строки
      n:=StringGrid1.ColCount;//столбцы
      SetLength(mas,m,n);//строка столбец
       for i:=StringGrid1.FixedRows to n-1 do
        for j:=StringGrid1.FixedCols to m-1 do
        begin
          mas[j-1,i-1]:=StrToInt(StringGrid1.Cells[i,j]);
        end;
     for I := 1 to n-1 do begin
       imin:=i;
     for j := i+1 to n do
     if mas [imin] > mas[j] then
     begin
     imin:=j;
     min:=mas[i];
      mas[i]:=mas[imin];
     mas[imin]:=min;
     end;
      for I := 1 to n do begin
        stringgrid1.Cells[i,0]:=inttostr(mas[i])
      end;
     end;

[BDA]

Вроде работает:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j, z: integer;
  s: string;
const
  col = 4;
begin
  with StringGrid1 do
    for i := 1 to RowCount - 2 do
      for j := i + 1 to RowCount - 1 do
        if strtoint(Cells[col, i]) < strtoint(Cells[col, j]) then
          for z := 1 to colcount - 1 do
          begin
            s := Cells[z, i];
            Cells[z, i] := Cells[z, j];
            Cells[z, j] := s;
          end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
begin
  with StringGrid1 do
  begin
    colcount := 11;
    RowCount := 5;
    Cells[1, 0] := 'ФИО';
    Cells[2, 0] := 'Факультет';
    Cells[3, 0] := 'Специальность';
    Cells[4, 0] := 'К-во баллов';
    Cells[5, 0] := 'Отделение';
    Cells[6, 0] := 'Серия паспорта';
    Cells[7, 0] := 'Номер паспорта';
    Cells[8, 0] := 'Серия аттестата';
    Cells[9, 0] := 'Наличие медали';
    Cells[10, 0] := 'Необходимость общежития';
    for i := 1 to RowCount - 1 do
      Cells[0, i] := IntToStr(i);
  end;
end;

[Ant_M]

нужно получается по счету с 0 сортировать 4 столбец. а он пытается отсортировать первый. В первом строки и он ругается.

[BDA]

А как у Вас задан балл?

а он пытается отсортировать первый

Мой код не пытается сортировать первый. Он сравнивает численные значения в четвертом столбце, и на основании этого меняет местами 2 строки в stringgrid.

[Ant_M]

как integer. он с помощью кнопки высчитывается.
просто когда запускаешь программу ругается на значения в первом столбце,говорит "is not a valid integer value"

[BDA]

В четвертом столбце при такой сортировке не должно быть пустых ячеек.

[Ant_M]

их и нет в принципе

[BDA]

Можете выложить весь проект архивом и сказать, в какой последовательности нажимаете кнопки?