Ordenar Lista de Registros

[Carmelo Cash]

Hola Foro:

Necesito hacer una aplicación que permita modificar el orden de los registros desde una pantalla sin usar un número de orden.

Actualmente tengo para cada registro un campo "Orden" , entonces ahí van poniendo un número y la planilla sale ordenada por ese campo.

El sistema funciona pero es muy engorroso, lo que quiero hacer es poder ver la planila en una grilla, y seleccionar uno o varios registros y moverlos para arriba o para abajo, y luego grabar todo el archivo renumerando el campo ”Orden”.

No sé que componentes usar, había pensado cargarlos en un ListBox, que tiene la opción Multiselect para habilitar, pero no me doy cuenta como mover los registros.

También pensé en utilizar una rxMemoryTable, pero .. IDEM.

Estoy utilizando Delphi 7 e Internase.

Bueno desde ya gracias por su atención.

[Casimiro Notevi]

¿Mover los registros de orden?, exactamente ¿qué necesitas?

[Carmelo Cash]

eJemplo:

----CLIENTES----
Pepe
Tito
Pipo
Koko <--- Selecciono Koko y lo llevo para arriba
Cacho
----------------


----CLIENTES----
Pepe
Koko <--- Koko quedó acá
Tito
Pipo
Cacho
----------------


El órden no es Alfabético, es el que el operador decida.

[[newtron]]

Hola.

Yo usaría un StringGrid para presentar los registros programando lo necesario para mover arriba o abajo las filas y que al grabar renumerara según el orden en el que se quede todo.

Saludos

[ecfisa]

Hola Carmelo Cash.

Usando un TListBox se me ocurre un modo de hacer lo que mencionas en el primer mensaje.

Código Delphi [-]
...
var
  SL: TStrings;

procedure TForm1.FormCreate(Sender: TObject);
begin
  SL := TStringList.Create;
  ListBox1.DragMode := dmAutomatic;
  ListBox1.MultiSelect := True;
end;

procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  // Al menos un ítem debe estar seleccionado
  Accept := (Sender as TListBox).SelCount > 0;
end;

procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
  i, p: Integer;
begin
  with (Sender as TListBox) do
  begin
    // Vaciar contenido del StringList
    SL.Clear;
    // Agregar items seleccionados al StringList
    for i := 0 to Count-1 do
      if Selected[i] then SL.Add(Items[i]);
    // Eliminarlos del ListBox
    for i := Count -1 downto 0 do
      if Selected[i] then Items.Delete(i);
    // Obtener ítem en posición de mouse
    p := ItemAtPos(Point(X, Y), True);
    // Insertar Items seleccionados
    Items.BeginUpdate;
    try
      for i := SL.Count-1 downto 0 do
        Items.Insert(p, SL[i]);
    finally
      Items.EndUpdate;
    end;
  end;
end;
...

Te permitirá insertar uno o mas items dentro del mismo ListBox mediante Drag&Drop.

Tene en cuenta que: No hace ninguna organización sobre la selección múltiple (si los items fueran mas de uno). Y, si los ítems del ListBox fueran muchos, no será muy eficiente.

Saludos.

[Carmelo Cash]

Gracias Newtron y Ecfisa.

Efectivamente ambos entendieron lo que necesito.

El código que puso Ecfisa funciona bien , pero si los Items superan la pantalla no se pueden subir, sino que hay que soltarlo, correr los items y volverlo a agarrar y seguir.

Ya tengo esta idea así que voy a seguir intentando con esto.

Gracias.