Сортировка в StringGrid с параметрами строки

[Xataby4]

Здравствуйте уважаемые программисты!!!
Я пишу программу с использованием комопнента StirngGrid и уже много перерыл поиском тем на этом форуме по сортировке в таблице, но у меня совсем другая заморочка, вот допустим у меня введено в stringGrid:

имя: возраст: вес:
миша 5 25
вова 3 7
аня 8 34
таня 5 16

а по нажатию на Button1 должно стать:

имя: возраст: вес:
аня 8 34
вова 3 7
миша 5 25
таня 5 16
ну то есть отсортировать по имени то есть по первой колонке и выстроить всех по очереди, ПРИЧЕМ КАЖДОМУ ИМЕНИ ДОЛЖНЫ ОСТАТЬСЯ ВСЕ ЗНАЧЕНИЯ КАК И БЫЛИ!!!!

Помогите плизззз!!!! Очень на вас расчитываю, если можно то сразу код.

[mihali4]

у меня совсем другая заморочка

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

если можно то сразу код

Такое у нас пишут в разделе "Помощь студентам". А этот раздел - "Общие вопросы Delphi" - для тех, кто хочет написать программу сам...

P.S.
Другой способ (для ленивых) - переписать все данные из StirngGrid построчно (целиком Row) в листбокс с установленным свойством сортировки, а потом из него перенести данные из строк обратно в StirngGrid, но уже в упорядоченном виде. Не забудьте только придумать оригинальный разделитель, чтобы не затрудниться с выделением данных по ячейкам одной строки. Или морочиться с колонками листбокса...

[Xataby4]

НУ Михалыч, релаьно , ну я знаю что ты best прогер, помоги пожалуйста, времени просто нету, а прогу завтра сдавать срочняк надл нет времени уже переносит в другой, раздел, дай пожалуйста код. Очень на тебя надеюсь!!! Заранее спасибо!!!(P.s я знаю что ты человек не с холодным сердцем)

вот я вот нарыл код:

Procedure GridSort(StrGrid: TStringGrid; NoColumn: Integer); 
Var Line, PosActual: Integer; 
   Row: TStrings; 
begin 
Renglon := TStringList.Create; 
For Line := 1 to StrGrid.RowCount-1 do 
Begin 
   PosActual := Line; 
   Row.Assign(TStringlist(StrGrid.Rows[PosActual])); 
   While True do 
   Begin 
     If (PosActual = 0) Or (StrToInt(Row.Strings[NoColumn-1]) >= 
         StrToInt(StrGrid.Cells[NoColumn-1,PosActual-1])) then 
       Break; 
     StrGrid.Rows[PosActual] := StrGrid.Rows[PosActual-1]; 
     Dec(PosActual); 
   End; 
   If StrToInt(Row.Strings[NoColumn-1]) < StrToInt(StrGrid.Cells[NoColumn-1,PosActual]) then 
     StrGrid.Rows[PosActual] := Row; 
End; 
Renglon.Free; 
end;

ну все вставляю, но дельфи кричит на Renglon - не знаю как ее объявить, помогите если че не так!?

[mihali4]

Renglon должен быть нормальным листбоксом, кинутым на форму (можно сделать ему визибле фолс).

[Xataby4]

НУ все равно кидаю ListBox прописываю в коде а дельфи кричит на строку Renglon := TStringList.Create; ну меняю ее на ListBox1 := TStringList.Create; все равно кричит
Вот из нарытого кода:

 
Procedure GridSort(StrGrid: TStringGrid; NoColumn: Integer); 
Var Line, PosActual: Integer; 
Row: TStrings; 
begin 
Renglon := TStringList.Create; 
For Line := 1 to StrGrid.RowCount-1 do 
Begin 
PosActual := Line; 
Row.Assign(TStringlist(StrGrid.Rows[PosActual])); 
While True do 
Begin 
If (PosActual = 0) Or (StrToInt(Row.Strings[NoColumn-1]) >= 
StrToInt(StrGrid.Cells[NoColumn-1,PosActual-1])) then 
Break; 
StrGrid.Rows[PosActual] := StrGrid.Rows[PosActual-1]; 
Dec(PosActual); 
End; 
If StrToInt(Row.Strings[NoColumn-1]) < StrToInt(StrGrid.Cells[NoColumn-1,PosActual]) then 
StrGrid.Rows[PosActual] := Row; 
End; 
Renglon.Free; 
end;

по вашему совету делаю:

Procedure GridSort(StrGrid: TStringGrid; NoColumn: Integer); 
Var Line, PosActual: Integer; 
Row: TStrings; 
begin 
ListBox1 := TStringList.Create; 
For Line := 1 to StrGrid.RowCount-1 do 
Begin 
PosActual := Line; 
Row.Assign(TStringlist(StrGrid.Rows[PosActual])); 
While True do 
Begin 
If (PosActual = 0) Or (StrToInt(Row.Strings[NoColumn-1]) >= 
StrToInt(StrGrid.Cells[NoColumn-1,PosActual-1])) then 
Break; 
StrGrid.Rows[PosActual] := StrGrid.Rows[PosActual-1]; 
Dec(PosActual); 
End; 
If StrToInt(Row.Strings[NoColumn-1]) < StrToInt(StrGrid.Cells[NoColumn-1,PosActual]) then 
StrGrid.Rows[PosActual] := Row; 
End; 
ListBox1.Free; 
end;

ВСе равно Дельфи кричит! Помогите, оч надо!!!!!! Плизззз!!!!

так ну ответит ли кто-нить или нет?

[pu4koff]

не нужен никакой листбокс. просто добавьте в var Renglon: TStringList;
И сортировка чисел тут у Вас. Вот поправил под имена:

procedure GridSort(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 = 0) or
         (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;

Сортировка вызывается так:
GridSort(StringGrid1, 0);

[Xataby4]

Спасибо большое pu4koff!!!! Тему можно закрывать!!!

А можете подсказать еще как умножать ячейки между собой??? Пожалуйста!!! (p.s. искал по форуму - не нашел)!

[pu4koff]

StringGrid1.Cells[0,2] := IntToStr(StrToInt(StringGrid1.Cells[0,0]) * StrToInt(StringGrid1.Cells[0,1])).
В ячейку (0,2) записываем результат произведения ячеек (0,0) и (0,1)
ЗЫ. По правилам форума: 1 тема - 1 вопрос

[Sheeby]

всем привет! а под какой компонент вводить этот самый GridSort?

[Stilet]

Тоесть? Это функция для сортировки колонок в компоненте StringGrid