Agrupar Filas en Stringgrid

[ecfisa]

Hola.

Cuando te sugerí ordenarlos fué por tu comentario anterior:

De esta forma me funciona muy bien pero de que manera podria hacer que la agrupaciones se deslicen a la ultima fila y no los agrupe en la primera

Entonces si son ordenados por 'precio' (la celda por la que se agrupó) lógicamente los registros agrupados quedan al final. Del código de ordenamiento tendrías que cambiar la comparación:

Código Delphi [-]
  if Cells[ACol,j] > Cells[ACol,j+1] then

por:

Código Delphi [-]
  if StrToInt(Cells[ACol,j]) > StrToInt(Cells[ACol,j+1]) then

A decir verdad respetar el orden de manera estricta despues de usar DeleteRow no lo veo sencillo. Quizá trabajando un poco sobre el código que te adjunté le encuentres la solución...

Un saludo.