Agrupar Filas en Stringgrid

[escorpionrojo43]

Empezado por ecfisa

Una vez desprotegida la clase TStringGrid podés utilizar DeleteRow sin problemas en esa unidad, también tendrás disponible algunas funciones más como MoveRow, DeleteColumn MoveColumn, ...

Mientras adjuntaba el ejemplo ya habías contestado... disculpas

Saludos.

Te agradesco mucho que me ayudaras con esto.
Ahora tengo una preunta mas.
parece ser que mi codigo tiene algun error pues mientras depuraba me di cuenta de que hace lo siguiente.

---------------------
cod desc. valor
---------------------
01 cod01 5
02 cod02 5
03 cod03 5
04 cod04 5
01 cod01 5
---------------------

ejecuto el procedimiento y todo bien hasta ahi

---------------------
cod desc. valor
---------------------
01 cod01 10
02 cod02 5
03 cod03 5
04 cod04 5
---------------------
pero luego agrego un items mas en este caso el 05 pero obtengo estos resultados en mi stringgid

---------------------
cod desc. valor
---------------------
01 cod01 10
02 cod02 5
03 cod03 5
04 cod04 5
05 cod05 5
01 cod01 5 ------------------------- este fuel el anterior que se borro pero al agregar un articulo mas me lo trajo de nuevo
---------------------

mi codigo es este. me podrian decir si encuentran el fallo ya que no lo encuentro.

Código Delphi [-]
//Validacion de la jugada y precios al salir del edit
procedure TForm2.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
  with Stringgrid2 do
  begin
    case Length(Edit1.Text) of
    6 :  cells[ct_j,row] := 'TRIPLETA';
    4 :  cells[ct_j,row] := 'PALE';
    2 :  cells[ct_j,row] := 'QUINIELA';
    0 :  begin  edit1.SetFocus;  exit;  end
    else
      begin
        edit1.SetFocus;
        Raise Exception.Create('Los numeros no tienen el formato adecuado. Revise');
      end
    end;
//Verifica si la Jugada esta Controlada
    with dm.qry_Control_numero, sql do
      begin
      Close;
      Clear;
      Add('SELECT * FROM Num_Controlados');
      Add('WHERE jugada = '+ Quotedstr(edit1.Text)+  ' and loteria = '+ Quotedstr(inttostr(cloteria.ItemIndex)));
      open;
      if not eof then
        begin
          if strtoint(Edit4.Text) > fieldbyname('Disponible').AsInteger then
          begin
          edit1.SetFocus;
          Raise Exception.Create('De la Jugada '+ (Edit1.Text)+ ' Solo quedan '+fieldbyname('Disponible').AsString);
          end;
        end;
      first;
    end;
    cells[cjug,row] := edit1.text;
    cells[cval,row] := edit4.Text;
    x2 := x2+ strtoint(cells[cval,row]);
    //label3.Caption := inttostr(x2); // mustra la suma en un label
    // Agrega un registro nuevo al grid
    rowcount := rowcount + 1;
    row      := row + 1;
    edit1.SetFocus;
    x1 := x1+1;
    edit1.Text:='';
    edit4.Text:='';
  end;
end;