Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Ordenar String Grid (https://www.clubdelphi.com/foros/showthread.php?t=96112)

pgranados 16-02-2023 20:32:25

Ordenar String Grid
 
Buen día, tengo un Form en la cual tengo dos StringGrid de TMS, donde el primer SG se llama Origen y el segundo se llama Destino, al arrastrar una fila del Origen debo de insertarla en Destino y borrarla de Origen (Y respectivamente si la arrastro de destino hacia origen haga el proceso de borrar y grabar), esto ya esta hecho y funciona bien, pero al arrastrar la fila necesito que "se ordene" en el primer renglón.


Ejemplo: en Origen tengo 20 filas en Origen y en Destino no tengo datos, hasta que arrastre,

Si yo arrastro la fila número 5 de origen, necesito que en Destino sea la primera, y si en origen ahora arrastro cual sea y la pongo en Destino que en este caso sea la segunda, pues ya hay un primer registro en destino.

¿Alguien a trabajado así? Saludos.

Casimiro Notevi 16-02-2023 21:22:15

No sabemos qué código usas, pero en principio cambiando "insert" por "append" conseguirás lo que quieres.

pgranados 16-02-2023 21:32:17

Cita:

Empezado por Casimiro Notevi (Mensaje 550414)
No sabemos qué código usas, pero en principio cambiando "insert" por "append" conseguirás lo que quieres.

Buen día Casimiro, no tengo detalle con "insertar el reglon o fila", el problema es que si en el stringGrid de Origen tomo el renglón #5 y lo arrastro al stringGrid de Destino al renglón #7, el registro se almacena en el renglón 7, quedando vacíos renglón 0,1,2,3,4,5,6........

Lo que necesito es que al mover el renglón a X posición, se reubique siempre arriba, no se si me doy a explicar :confused:

Saludos.

pgranados 16-02-2023 23:27:46

Buen día, lo pude resolver utilizando la propiedad: Sort

De esta forma se ordenan de forma descendiente, dejando los campos <> ' ' como primer opción y por ultimo los = ' '
Código Delphi [-]
StringGrid1.Sort(0, sdDescending);

Saludos.

Casimiro Notevi 17-02-2023 11:06:45

Me alegro, si así te sirve, está bien ^\||/


La franja horaria es GMT +2. Ahora son las 01:39:28.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi