FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Ejemplo de Ordenamiento StringGrid (Solución)
Encontre este ejemplo de ordenamiento de un StringGrid y lo he probado y funciona de las mil maravillas.... asi que se los dejo para que lo usen...
Código:
procedure Sortgrid(Grid : TStringGrid; SortCol:integer); var i,j : Integer; temp : TStringList; begin Temp:= TStringList.Create; with Grid do begin for i := FixedRows to RowCount - 2 do begin for j:= i+1 to rowcount-1 do begin if AnsiCompareText(Cells[SortCol, i], Cells[SortCol,j]) > 0 then begin temp.assign(rows[j]); rows[j].assign(rows[i]); rows[i].assign(temp); end; end; end; end; temp.free; end; Código:
procedure TForm1.StringGrid1MouseUp(Sender: TObject;Button:TMouseButton;Shift: TShiftState; X, Y: Integer); var c : Integer; begin with TStringGrid(Sender) do begin if Y <= RowHeights[0] then begin C:= x div (DefaultColWidth+GridLineWidth); SortGrid(TStringGrid(Sender),C); end; end; Eduardo Valencia López Santiago - Chile Última edición por varuhs fecha: 18-07-2006 a las 18:00:48. |
#2
|
||||
|
||||
No se si lo considerarás un abuso (espero que no), pero como moderador te propongo que lo incluyas en la sección de trucos del Club.
Si no te apetece, no tienes tiempo, o por cualquier otra razón no deseas hacerlo, dilo y yo mismo lo añadiré, pero ya que has sido tú quien lo ha propuesto sería lo lógico que lo hicieras tú y así constarías como el usuario que lo ha añadido. Gracias por la aportación. Un saludo.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#3
|
|||
|
|||
RE: Ejemplo de Ordenamiento StringGrid (Solución)
Lo voy a añadir en estos momentos....
Gracias Neftali por darme la idea.... Saludos |
#4
|
|||
|
|||
flechitas de ordenación en stringgrid
Como complemento a tu ordenacion de un stringgrid que me ha sido muy util he puesto un procedure para que pinte los triangulitos de ordenacion es muy chapucero pero soy muy novato pero me valio os lo pongo por si os vale,
luego se llama desde el
otra cosa que he visto es que al utilizar para determinar la columna el DefaultColWidth+GridLineWidth si las columnas son de distinto largo no valdria este algorismo ni pa ordenar ni pa pintar el triangulito lo digo por si alguien se le ocurre algo pa esto y ya lo dejamos maqueado Última edición por Neftali [Germán.Estévez] fecha: 12-09-2006 a las 11:13:43. |
#5
|
||||
|
||||
Cita:
Bienvenido a los foros. Sólo como comentario (y ya que eres nuevo) te recomiendo utilizar TAG's en los mensajes cuando coloques código Delphi, verás como la presentación mejora mucho. En este caso ya te modifico yo el mensaje. Un saludo.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Ordenamiento lento | brandolin | Firebird e Interbase | 3 | 11-05-2005 20:57:56 |
Alguien tiene un ejemplo de tetris con StringGrid? | alfredosg19 | Varios | 0 | 22-01-2005 20:57:02 |
Actualización de ordenamiento con ADO | ¥0n1 | Conexión con bases de datos | 4 | 09-01-2004 18:17:43 |
Ordenamiento | GIVO | Conexión con bases de datos | 4 | 13-08-2003 18:19:29 |
Ordenamiento en un DBGrid | Cronos | Varios | 1 | 26-05-2003 21:25:29 |
|