8 respuestas en este tema

[escafandra]

El componente TStringGrid no tiene ningún método para ordenar las celdas. En este truco muestro como crear nuestra propia función de ordenación.

La función de ordenación será capaz de ordenar por orden alfabético o numérico las filas del StringGrid. Podremos elegir la columna sobre cuyos valores ordenaremos y la fila de inicio y fin que entraran el juego. También seremos capaces de ordenar en orden creciente de arriba a bajo o decreciente.

La definición de la función, para colocar en un archivo.h

cpp

void SortRow(TStringGrid *StringGrid, bool Increase, int Col, int RowIni = 0, int RowEnd = -1);

La implementación:

cpp

void SortRow(TStringGrid *StringGrid, bool Increase, int Col, int RowIni, int RowEnd)
{
     TStrings *Strings = StringGrid->Cols[Col];
     TStrings *Temp = new TStringList;
     int   n, m = 1;
     if(RowEnd == -1) RowEnd = Strings->Count-1;
 
     // Ordena por orden alfabético
     for(m=1; m;) for(n=RowIni,m=0; n<RowEnd; n++){
       if(Increase){
         if(Strings->Strings[n]<=Strings->Strings[n+1]) continue;
       }
       else{
         if(Strings->Strings[n]>=Strings->Strings[n+1]) continue;
       }
       Temp->Assign(StringGrid->Rows[n]);
       StringGrid->Rows[n]->Assign(StringGrid->Rows[n+1]);
       StringGrid->Rows[n+1]->Assign(Temp);
       m=1;
     }
     delete Temp;
}

Saludos.

[egostar]

Hola amigo,

Gracias por el aporte,

Salud OS

[seoane]

Lo mismo pero usando el algoritmo Quicksort de forma recursiva ... y en delphi  :

delphi

procedure QuickSort(StringGrid: TStringGrid; Column, L, R: Integer);
var
  I, J, P: Integer;
  Aux: TStringList;
begin
  Aux:= TStringList.Create;
  try
    repeat
      I := L;
      J := R;
      P := (L + R) shr 1;
      repeat
        while AnsiCompareText(StringGrid.Rows[I].Strings[Column],
          StringGrid.Rows[P].Strings[Column]) < 0 do Inc(I);
        while AnsiCompareText(StringGrid.Rows[J].Strings[Column],
          StringGrid.Rows[P].Strings[Column]) > 0 do Dec(J);
        if I <= J then
        begin
          Aux.Assign(StringGrid.Rows[I]);
          StringGrid.Rows[I].Assign(StringGrid.Rows[J]);
          StringGrid.Rows[J].Assign(Aux);
          if P = I then
            P := J
          else if P = J then
            P := I;
          Inc(I);
          Dec(J);
        end;
      until I > J;
      if L < J then QuickSort(StringGrid,Column,L, J);
      L := I;
    until I >= R;
  finally
    Aux.Free;
  end;
end;
 
 
// Por ejemplo
QuickSort(StringGrid1,0,0, StringGrid1.RowCount - 1);

[Caral]

Hola
Como me gusta ver código de los grandes, aunque no entienda nada.
Saludos
PD: que bueno que seoane nos lo traduce a delphi, aunque ni asi lo entiendo.

[felipe]

Hola,
muy bueno... ¿y en que evento del StringGrid es propio usarlo?


Saludos!

[egostar]

Hola,
muy bueno... ¿y en que evento del StringGrid es propio usarlo?


Saludos!

Yo usaria esta "chapuza"

delphi

var
  Form1: TForm1;
  Columna: integer;
 
implementation
 
{$R *.DFM}
 
procedure TForm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if y <= StringGrid1.DefaultRowHeight then begin
     Columna := (X div StringGrid1.DefaultColWidth) + 1;
  end
  else Columna := -1;
end;
 
procedure TForm1.StringGrid1DblClick(Sender: TObject);
begin
  if (Columna > 0) and (Columna <= StringGrid1.ColCount) then begin
     ShowMessage('Se seleccionó la Columna '+inttostr(Columna));
     //Ejecutamos el QuickSort dependiendo de la columna que se obtiene.....
  end;
end;
 
end.

Salud OS

[felipe]

Lástima que no tenga un evento como OnTitleClick así­ como un DBGrid; así­ serí­a propio.


Saludos!

[egostar]

Lástima que no tenga un evento como OnTitleClick así­ como un DBGrid; así­ serí­a propio.


Saludos!

que paso mi cuate, y el code ese que puse, no servirá para lo mismo que el TitleClick 

Salud OS

[felipe]

Lástima que no tenga un evento como OnTitleClick así­ como un DBGrid; así­ serí­a propio.


Saludos!

que paso mi cuate, y el code ese que puse, no servirá para lo mismo que el TitleClick 

Salud OS

Es verdad  ... no vi aquella linea, gracias


Saludos!