permutaciones

[roman]

Un comentario al margen :

[margen]

¿Para qué quieres mostrar todas las sextetas, permutaciones y demás en un ListView? Según entiendo, tú quieres hacer un análisis, comparaciones, etc. de dichas sextetas y para ello no requieres mostrarlas. Usar un control visual, además de requerir más recursos, consume más tiempo y hace que te confundas al apartarte de lo esencial ya que intentas lidiar simultáneamente con un problema que tiene que ver sólo con número enteros y con uno que tiene que ver con cadenas y la forma de disponerlas en un control.

Yo, en tu lugar, comenzaría definiendo una estructura de datos ad hoc a tu problema, por ejemplo:

Código Delphi [-]
type
  TSexteta = array[0..5] of Integer;
  TListaSextetas = array of TSexteta;

TListaSextetas será una matriz o arreglo bidimensional con un número de columnas fijo (seis) y un número de filas indeterminado o abierto. Todos tus cálculos, comparaciones, permutaciones, etc. las haces con esas estructuras y una vez que obtengas la sexteta de la suerte la muestras, ahora sí, en controles visuales.

Incluso, si decides que de-todas-formas quieres ver tus millones de sextetas, bastará que uses un ListView en modo virtual para "conectarlo" a tu estructura de datos, pero el problema aritmético en sí, seguirá separado de lo visual.

[/margen]

LineComment Saludos