Asort con meter

[Garbi]

Hola estoy ordenando una tabla, pero el ordenador del cliente es lento y me gustaría añadirle un meter para que viera el progreso y no se pusiera "nervioso" pero nunca lo he hecho.

¿Alguien puede ponerme algún ejemplo?

Muchas Gracias de antemano.

[hmpaquito]

No creo que se pueda hacer, porque para ello habría que tener información que aSort() no da: el nº de elemento por el que va en la ordenación.

Un workaround es utilizar MsgRun() o similar y al menos poner un texto "Espere..."

[Garbi]

Ok. Eso había pensado yo sobre el meter y Asort, pero por si acaso.

Probare con MsgRun() así por lo menos saldré del paso.

Gracias.

[Antonio Linares]

Paco,

Como ASort() permite evaluar un bloque de código, desde él se podria incrementar una variable estática externa que indicaría el elemento por el que va

Creo que se podria hacer asi

http://www.fivetechsoft.com/harbour-docs/api.html#asort

[hmpaquito]

Antonio,

Me parece que Asort() utiliza el algoritmo de la burbuja, no estoy muy seguro.
Tampoco estoy seguro que el algoritmo de la burbuja use tantas comparaciones como elementos tiene el array.

Saludos

[Antonio Linares]

Paco,

Este ejemplo funciona, pero la sorpresa es que el bloque de código se evalúa 10 veces, puesto que hacen falta
más iteraciones para ordenarlos. Haria falta una primera pasada para contar el total de iteraciones y una segunda
para mostrar el meter, lo que no lo haría muy práctico:

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local nIndex := 1

   ASort( { 9, 6, 3, 5, 2, 1 },,, { | x, y | MsgInfo( nIndex++ ), x < y } )

return nil

[Antonio Linares]

Estos ejemplos se pueden probar desde Fivedit sin necesidad de crear un PRG ni tener que construir el EXE

[Garbi]

Muchas Gracias por vuestra ayuda,