Revisión de código

[danielmj]

Hola, a ver me explico otra vez espero que esta vez mejor. Comenzaré por explicar el funcionamiento del programa, lo que espero que haga.

1º En el combo box, tengo una serie de valores que van de 5000 a 10.000.000 (aunque realmente como máximo uso 2.000.000).
2º En función de este valor, el programa genera x numero de combinaciones aleatorias y las almacena en un listview.
3º De entre todas esas combinaciones generadas, que pueden ser 5000 o 5 millones, busca los 6 números que mas veces han salido y calcula sus permutaciones (de ahí que combinatoria ordene esos 6 números). En 2 listbox genera las permutaciones de 6 y 5 numeros respectivamente
4º Las permutaciones almacenadas en per, que son de 5 números, las compara con lista3.
5º En otro listview (lista3), carga un archivo csv con sorteos ya jugados y a partir de las permutaciones del listbox "per" va comparando 1 a 1 con cada fila de ese listview
6º El programa tiene 3 métodos de busqueda: fuerza bruta, busqueda del 5 y selectiva por sorteos ya jugados.
6.1. El metodo "fuerza bruta" compara cada permutacion en base a 6 números con cada una las filas del listview que muestra las combinaciones aleatorias, es decir busca cada permutacion entre 5 mil.... 5mill de combinaciones, comparando. Si encuentra los 6 números de la permutacion me lanza un messagebox y me indica en que fila del listview aparece. Este método es muy tedioso y lento por que encontrar 6 numeros exactos es casi imposible por lo que realmente apenas lo uso.
6.2 Método "búsqueda del 5" básicamente hace lo mismo que el método anterior pero en lugar de 6 números con sus coincidencias, busca 5 con lo que las posibilidades de encontrarlos es mayor.
6.3 Método de "busqueda selectiva", realmente este método no tiene mayor importancia por que al igual que el método anterior, busca 5 coincidencias sobre los sorteos ya jugados. Tanto este método como busqueda del 5, usan las permtuaciones del listbox "per" de 5 números. De encontrarlos, tanto para el punto 6.3 y 6.2 me indica donde se encuentra esas coincidencias en los listview (lista [combinaciones aleatorias] o lista3 [combinaciones de sorteos previos]).

Ahora la teoría, mi teoría que obviamente no tiene que ser válida pero es la que quiero explotar:
Si el método de búsqueda del 5 encuentra 5 coincidencias en alguna de las filas entre el millon de combinaciones aleatorias, la aceptaría como válida estadisticamente y es la que jugaría.
Esto es válido para "Búsqueda selectiva", que es a la que pertenece todo el código aquí expuesto. Para la busqueda del 5 es lo mismo salvando las diferencias en cuanto a nombre de controles y variables.

En cuanto a lo que dices bucanero, es cierto lo del progress bar y lo de la variable, paso a corregirlo. En cuanto a combinatoria, más arriba expliqué su función.
Sobre la parte del código que no muestro. Esa parte la he modificado para que simplemente muestre un mensaje diciendo que no encontró esas 5 coincidencias búscadas. Sino son 5, el programa las ignora.

Saludos.

[danielmj]

He cambiado el código a esto:

Código Delphi [-]
procedure TForm1.Button10Click(Sender: TObject);
var
  cad1:Int64;
  i:integer;
begin
  //Recorro la lista1
  with per do
    for i := 0 to Count -1 do
    begin
      // Calculo CAD1 cada vez que cambia el indice de lista3
      ItemIndex := i;
      //convierto el string separado por espacios a una lista
      list.delimitedText:=Items[i];
      cad1:= ValorCombinacion(list);
      buscarComunes(cad1);
    end;

Buscar Comunes

Código Delphi [-]
procedure TForm1.buscarComunes(const Cad1:Int64);
var
  cad2:Int64;
  j:integer;

begin
  // Recorro la lista2
   with lista3 do
   for j := 0 to Items.Count -1 do
   begin
     lista3.Selected:= items[j];
     //convierto el string separado por espacios a una lista
     list.delimitedText:= items.Item[j].SubItems[0]+ ' '+
                          items.Item[j].SubItems[1]+ ' '+
                          items.Item[j].SubItems[2]+ ' '+
                          items.Item[j].SubItems[3]+ ' '+
                          items.Item[j].SubItems[4]+ ' '+
                          items.Item[j].SubItems[5];
     // Calculo CAD2 cada vez que cambia el indice de per
     cad2 := ValorCombinacion(list);
     CompararCombinaciones(cad1, cad2);
   end;
end;

Código Delphi [-]
procedure TForm1.CompararCombinaciones(const Cad1, cad2:Int64);
var
  res:Int64;
  comunes:string;
begin
  label21.Caption:= IntToStr(cad1);
  res:=cad1 and cad2;
  if (cad1 = cad2) then begin
    // las dos combinaciones son iguales
    ShowMessage('Iguales');
    exit;
  end

//*** Esto lo tengo desactivado por que me dice "no hay coincidencias" por cada linea que compara.
{  else //if (res <> 0) then
    showMessage('No hay coincidencias');
    form1.timer1.Enabled:= false;
    form1.Refresh;
    exit}
end;

Parece que recorre la lista3 y lo compara con per pero incluso habiendo una combinación real de 5 aciertos sigue sin encontrarla, además el proceso es eterno, tarda como 1 seg. por cada comparacion y eso que solo son 120 permutaciones, cuando sean 720 y 50.000 combinaciones aleatorias... no sería factible creo.
Un saludo.

[Casimiro Notevi]

Es que, para empezar, debes olvidarte de todo lo que sea manejo de cadenas de texto, presentación en pantalla, labels, edits, listview, etc.
Tienes que optimizar/afinar muchísimo si quieres que funcione de forma ágil.
Si vas a trabajar con números, entonces usa integer. Si vas a necesitar un grupo de ellos, entonces usa un array de integer. Y mejor aún, punteros a array de integer.
Empieza por hacer un prototipo simple, lo más simple y elemental posible, y a ser posible con papel y lápiz. Este es un tema muy estudiado, y muchas personas por el mundo han propuesto "soluciones" muy diversas, es algo muy complejo (si fuese fácil, todos seríamos millonarios ), por lo que hay que afinar al máximo. Debes tener una base/estructura muy bien depurada para luego trabajar sobre ella con todo lo nuevo que se te ocurra añadir o probar.
Puedes buscar por internet algunos proyectos similares a los que quieres hacer y verás que no tiene mucho que ver con la forma en que estás atacando el problema. Échales un vistazo, te lo aconsejo.

[danielmj]

Hola Casimiro, consejo aceptado, haré algo sencillo y desde ahí ire subiendo. Saludos.

[bucanero]

Empezado por danielmj

Parece que recorre la lista3 y lo compara con per pero incluso habiendo una combinación real de 5 aciertos sigue sin encontrarla...

El problema yo lo veo en el proceso que te rellena el listbox llamado PER con la función combinatoria2 que lo único que hace es cambiar el orden de una combinación de numeros entre ellos, pero que al aplicar la función ValorCombinacion te va a devolver siempre el mismo valor de combinación, independientemente del orden de los elementos.

De hecho haz la siguiente prueba, ejecuta este procedimiento y veras como a cada permutación de tu lista PER obtienes el mismo valor en la función ValorCombinacion, y eso solo te hace repetir cálculos innecesarios una y otra vez

Código Delphi [-]
procedure TEST;
var 
  i: longint;
begin
  // llama aqui a la funcion que te rellena el listbox PER 
  // combinatoria2([1, 4, 5, 12, 24], PER.Items);
  Memo1.Clear;
  with Per do begin
    for i := 0 to Count - 1 do begin
      //convierto el string separado por espacios a una lista
      list.Clear;
      list.delimitedText := items[i];
      //mostrar resultado
      Memo1.Lines.Add(items[i] + #9 + IntTostr(ValorCombinacion(list)));
    end;
  end; 
end;

Creo que no necesitas ni el listbox PER ni la función que te lo rellena. Para generar una combinación aleatoria yo usaría algo así:

Código Delphi [-]

const 
  maxNum:integer=49; //<-- Numero maximo de elementos

var
  combinacion:Int64;

 ...
 for N1 := 1 to maxNum - 5 do
    for N2 := N1 + 1 to maxNum - 4 do
      for N3 := N2 + 1 to maxNum - 3 do
        for N4 := N3 + 1 to maxNum - 2 do
          for N5 := N4 + 1 to maxNum - 1 do
            for N6 := N5 + 1 to maxNum do begin
              //codifica la combinacion en un Int64
              combinacion := ValorCombinacion(n1, n2, n3, n4, n5, n6);
              analizarCombinacion(combinacion);
            end;
  ...

Y todo fuera de los componentes visuales.

Yo te recomiendo que para separar toda la parte visual de los cálculos, utilices un datamodule o una simple unidad independiente para meter todos los procesos referentes a calculo y en el formulario solo dejes la parte visual.

Y por tema de velocidad en el tipo de rutinas que hacen calculos de forma masiva, intentan en la medida de todo lo posible no hacer llamadas a elementos visuales ni refresco de la información de los mismos, pues son rutinas que se pueden ejecutar varios millones de veces, y las llamadas a componentes visuales son muy lentas, a parte de que te pueden dejar muy tirado el programa.

Empezado por danielmj

Código Delphi [-]
procedure TForm1.CompararCombinaciones(const Cad1, cad2:Int64);
...
  label21.Caption:= IntToStr(cad1);
...
    ShowMessage('Iguales');
...
end;

Un saludo

[danielmj]

Bueno, gracias por vuestro tiempo.

[danielmj]

Hola de nuevo,

Sigo con lo mismo porque no lo consigo, me estoy centrando en el método de bucanero y tengo una duda. en los edit1,2,3,4,5 y 6 están los numeros que mas veces salen. En su método, se comparan dos listbox completos, pero y si quiero comparar tan solo 1 item de un listbox con todos los de otro listbox? por que a mi me da error.

saludos

[bucanero]

hola danielmj,

Puedes poner la parte del código que te da error. Y el error que te da

saludos

[danielmj]

Hola bucanero, ya no se ni que poner, estoy tan quemado con esto que me tiene frustrado.
Estoy comenzando un núevo método para generar números aleatorios sin repeticiones y a partir de ahí sacar los mas repetidos y sobre los mas repetidos (que formarian una combinacion de 6 numeros) le implementaria tu método de comparar combinaciones, solo que sería entre esos 6 unicos numeros y todo un listbox en el que he volcado los elementos de un listview (que por ejemplo tiene 5000 combinaciones). Voy a dejarlo ahora por que me tiene ya saturado y prefiero despejarme un poco para poder seguir. XD