Revisión de código

[danielmj]

Hola, no va Bucanero, da error... básicamente que el valor de per, no es un valor entero valido.
Un saludo.

[danielmj]

No, no funciona, no acepta el valor de cad2 como entero.

[bucanero]

¿Que contenido tienen los elementos de per.items? si como muestras en la imagen el contenido es "4 20 21 23 25" entonces debes convertir antes esa cadena a una lista de valores valida para la función ValorCombinacion() donde cada elemento contenga un único numero. O ajustar los parámetros de entrada a los que tu necesites.

prueba con

Código Delphi [-]

 var
    list:TStringList;

...
begin
    //inicio del proceso
    // poner esto al principio del proceso fuera de todos los bucles     
    list:=TStringList.create;
    list.delimiter:=' ';

 ...

     // Calculo CAD2 cada vez que cambia el indice de per
    list.delimitedText:=per.Items[j].SubItems;
    cad2 := ValorCombinacion(list);

...

     // al final del proceso 
     list.free; //liberar el objeto
 end;

[danielmj]

Gracias, no he contestado antes por que estoy en trabajo. Llegaré mañana por la mañana a casa y ya pruebo. Un saludo.

[danielmj]

Hola, el código ya no da error, pero sigue sin encontrar coincidencias habiendolas (en concreto con el sorteo del dia L-14-01-13). No hay forma de hacerlo funcionar joer.
Saludos.

Edito: He hecho una prueba, he creado una etiqueta y en ella almaceno el valor de cad1 así..

label21.caption:= IntToStr(cad1)

y lo que devuelve es un entero largo que no tiene nada que ver con la combinacion de lista3. Por eso no encuentra nada.

[mamcx]

En vez de mostrar codigo debes mostrar datos.

Pon en una tabla y/o lista los datos iniciales, y otra como deben quedar.

[danielmj]

Muestra en tiempo real. Video
Hola Mamcx, no he entendido bien lo que dices. Te explico el proceso a groso modo.. en un listview (lista3) cargo los sorteos hasta la fecha (7 columnas, la primera que sería el caption muestra la fecha del sorteo y se desprecia. El resto muestra la combinacion). En un listbox (per) tengo la permutacion de 5 numeros aleatorios (a partir de los 6 que mas se repiten en un listview (lista) y a partir de ahí debe encontrar 5 coincidencias entre las permutaciones del listbox (per) y cinco de los seis números de la lista3. Pero no encuentra nada y ya he probado varias formas.

Un saludo.