Revisión de código

[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.

[danielmj]

Algo que no entiendo es.. en cad1 que hace mencion a la lista3, se guardan 5 o 6 subitems? por que yo solo quiero comparar 5 igual por eso no encuentra nada. Saludos.

[mamcx]

Empezado por danielmj

Muestra en tiempo real. Video

Ni el video ni la imagen es clara. Lo que necesitas es un ejemplo minimo de los datos (la imagen habla de los numeros mas repetidos pero eso no se ve).

Me huele que el problema es facil pero esta oscurecido por el codigo que tienes y que no esta simplificado a un minimo para poder entenderlo.

Reduce el problema, pon una lista de unas 10 o 20 filas con ejemplos representativos. Luego un ejemplo concreto que COINCIDA con los datos de ejemplo de como es la cosa.