FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Bubble Sort en StringGrid
Tengo que hacer el ordenamiento de un stringgrid con el metodo de la burbuja (Bubble Sort), que segun investigue seria algo como::
Procedure BubleSort(var sort:Array_integer); Var a,s,tmp:integer; Begin For a := 1 to 9 do For s := 0 to 8 do If (sort[s] > sort[s+1]) then Begin tmp:= sort[s]; sort[s] := sort[s+1]; sort[s+1] := tmp; End; End; End; Y mi StringGrid seria::: procedure TConsDpto.FormActivate(Sender: TObject); begin With SG do Begin Rowcount:=L+1; cells[0,0]:='Id'; cells[1,0]:='Departamento'; end; For x:=0 to L do Begin with SG do Begin cells[0,x+1]:=inttostr(Aiddpto[x]); cells[1,x+1]:=ADepartamento[x]; end; Me podrian ayudar para que los datos que van a aparecer en el stringgrid aparezcan ordenados usando ese metodo? Como lo implemento? Gracias |
#2
|
||||
|
||||
Parace que estás añadiendo los datos al TStringGrid desde un array; Yo que que haría es ordenar el array (Aiddpto) utilizando el procedimiento de ordenación y luego cuando los añadas al StringGrid ya irán ordenados.
Supongo que quieres hacer la ordenación por la primnera columa que es la integer. Otra cosa, en lugar de OnActivate, utiliza el evento OnShow, ya que onActivate salta cada vez que el form se activa y eso te provocará que cada vez que lo actives intente ordenar.
__________________
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
|
|||
|
|||
Ok, Gracias, intentare hacer eso.
Pude ordenar la primera columna e intente organizar la segunda junto con esta pero no me ha funcionado. Me da un error. If (AIdcargo[s]>AIdcargo[s+1]) then Begin tmp:=AIdCargo[s]; temp:=ACargo[s]; AIdCargo[s]:=AIdcargo[s+1]; ACargo[s]:=ACargo[s+1]; AIdCargo[s+1]:=tmp; ACargo[s+1]:=temp; |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
TDBChart: un gráfico bubble para 3 tablas | TrUnkS | Gráficos | 2 | 04-03-2009 06:11:28 |
Metodo SORT (o similiar) en Interbase | waly2k1 | Conexión con bases de datos | 5 | 08-08-2007 07:22:05 |
Vistas sort/index | StartKill | Firebird e Interbase | 6 | 16-01-2006 16:15:46 |
ADODataSet.Sort:='CampoLookUp' da error!!! | Mauro.NET | Conexión con bases de datos | 2 | 06-07-2005 17:39:44 |
TObjectList.Sort duda | Lepe | Varios | 3 | 21-03-2004 21:43:35 |
|