Здравствуйте! Прошу помощи в следующем вопросе:
Delphi
Есть процедура сортировки StringGrid, которая сортирует значения по убыванию в заданном столбце.
Процедура не сортирует вообще.
При тестировании процедуры вводимые значения: таблица показанная на изображении и 7 столбец

Приложение:
procedure SortMin(Table:TStringGrid;Column:Integer); var temp:array[1..7] of string; a,b:double; j,max,col,row,check:integer; begin for check:=1 to 7 do if Table.Cells[check,1] <> '' then begin for row:=1 to Table.RowCount-1 do begin max:=row; for j:=row to Table.RowCount-1 do begin TryStrToFloat(Table.Cells[Column,j],a); TryStrToFloat(Table.Cells[Column,max],b); if a > b then max:=j; end; if row <> max then for col:=1 to 7 do begin temp[col]:=Table.Cells[col,row]; Table.Cells[col,row]:=Table.Cells[col,max]; Table.Cells[col,max]:=temp[col]; end; end; end; end;

-----
Прикрепленное изображение (кликните по картинке для увеличения):

Состояние: Консультация закрыта