实现StringGrid的删除，插入，排序行操作（基本操作啦）

Procedure GridRemoveColumn(StrGrid: TStringGrid; DelColumn: Integer);
  Var Column: Integer;
  begin
    If DelColumn <= StrGrid.ColCount then
    Begin
      For Column := DelColumn To StrGrid.ColCount-1 do
        StrGrid.Cols[Column-1].Assign(StrGrid.Cols[Column]);
      StrGrid.ColCount := StrGrid.ColCount-1;
    End;
  end;

//实现添加插入操作
  Procedure GridAddColumn(StrGrid: TStringGrid; NewColumn: Integer);
  Var Column: Integer;
  begin
    StrGrid.ColCount := StrGrid.ColCount+1;
    For Column := StrGrid.ColCount-1 downto NewColumn do
      StrGrid.Cols[Column].Assign(StrGrid.Cols[Column-1]);
    StrGrid.Cols[NewColumn-1].Text := '';
  end;
 
//实现排序操作
  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;