Сортировка в StringGride (поправить)

[GaleI]

procedure TReportFiles.SgSort(aSg : TStringGrid; const aCol : Integer);
var
  SlSort, SlRow : TStringList;
  i, j : Integer;
    n:integer;
  st,st1: string;
begin
  SlSort := TStringList.Create;
  for i := aSg.FixedRows to aSg.RowCount - 1 do begin
    SlRow := TStringList.Create;
    SlRow.Assign(aSg.Rows[i]);
    SlSort.AddObject(aSg.Cells[aCol, i], SlRow);
  end;
  SlSort.Sort;
  j := 0;
  for i := aSg.FixedRows to aSg.RowCount - 1 do begin
    SlRow := Pointer(SlSort.Objects[j]);
    aSg.Rows[i].Assign(SlRow);
    SlRow.Free;
    Inc(j);
  end;
  SlSort.Free;
  Ass;
  {n:=ReportFiles.StringGrid1.RowCount;
  for i:=0 to n-1 do
  if (pos('Том',ReportFiles.StringGrid1.Cells[0,i])<>0) and
     (pos('Том',ReportFiles.StringGrid1.Cells[0,i+1])<>0)
     then
     begin
      if WordToNumber(i)>WordToNumber(i+1) then
      swap(i,i+1); end;}
end;
 
function TReportFiles.WordToNumber(i: integer): double;
var
  st,st1:string;
  pus1,pus2,p,t:integer;
begin
  st:=ReportFiles.StringGrid1.Cells[1,i];
  pus1:=pos(' ',st);
  st[pus1]:='*';
  pus2:=pos(' ',st)-1;
  //p:=pus2-pus1;
  //st1:=copy(st,pus1+1,p);
 
  //p := pos(' ', st) - 1;
  if st[pus2] = '.' then
    p := pus2 - pus1 - 1
  else
    p := pus2 - pus1;
  st1:=copy(st,pus1+1,p);
  if pos('.',st1) <> 0 then
    begin
 
  t :=pos('.',st1);
  st1[t]:=',';
  end;
  result:=strtofloat(st1);
end;
 
procedure TReportFiles.swap(x, y: integer);
begin
  TStringGridX(ReportFiles.StringGrid1).MoveRow(x - 1, y - 1);
end;
 
Procedure TReportFiles.Ass;
var
  n,i,j:integer;
  st,st1: string;
 
begin
  n:=ReportFiles.StringGrid1.RowCount;
  for i:=0 to n-1 do
  if (pos('Том',ReportFiles.StringGrid1.Cells[1,i])<>0) and
     (pos('Том',ReportFiles.StringGrid1.Cells[1,i+1])<>0)
     then
     begin
      if WordToNumber(i)>WordToNumber(i+1) then
      swap(i,i+1); end;
end;
 
procedure TStringGridX.MoveColumn(FromIndex, ToIndex: Integer);
begin
  inherited;
end;
 
procedure TStringGridX.MoveRow(FromIndex, ToIndex: Integer);
begin
   inherited;
end;
 
procedure TReportFiles.Button3Click(Sender: TObject);
begin
  Sgsort( StringGrid1, StrToIntDef(inttostr(1),0));
end;

_______________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.
_______________

сортировать нужно строки массива по первому сстолбцу
Безымянный1.JPG