FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
numeros aleatoriios sin repetir
Hola (de nuevo), este problema se que es muy recurrente, pero no he conseguido (después de mirar mucho por la red y el foro), la forma de hacer trabajar mi programa. Lo ultimo ha sido usar un truco de la web de trucomania, pero aunque no da error de compilación, no funciona para nada bien una vez se ejecuta el codigo.
El código que se debe ejecutar es este:
Como puede verse, en el case, al seleccionar el item 0 del combobox, las combinaciones (de 6 numeros) llegan a 100, es decir, la lista (listview) debe tener 100 filas de 6 numeros no repetidos. La unidad que uso para realizar esto está aquí.. http://www.trucomania.org/trucomania/ftesp.html El problema es que en vez de rellenar la lista con esas 100 filas de numeros, solo hace un par (en el mejor de los casos). ¿Alguien sabe donde está el error? Captura de la aplicacion corriendo (aunque en la captura el combo tenga 50.000, en el codigo a modo de pruebas tiene un valor de 100) http://pasteall.org/pic/index.php?id=107843 Gracias.
__________________
La juventud pasa, la inmadurez se supera, la ignorancia se cura con la educación, y la embriaguez con la sobriedad, pero la estupidez dura para siempre. Aristofanes. |
#3
|
||||
|
||||
voy a probar, saludos
Edito: Ese begin no hace nada roman, lo he probado y sigue haciendo cosas raras. He grabado un pequeño video del problema, por si da mas pistas. https://youtu.be/2JDBzoq2jPY Un saludo y graacias.
__________________
La juventud pasa, la inmadurez se supera, la ignorancia se cura con la educación, y la embriaguez con la sobriedad, pero la estupidez dura para siempre. Aristofanes. Última edición por danielmj fecha: 19-10-2016 a las 17:34:35. |
#4
|
||||
|
||||
Y ademas falta su END. Pascal no es como python. La identacion es solo estetica.
Recomiendo que no uses WITH. Es uno de los keywords mas confusos del lenguajes y se debe evitar como la plaga.
__________________
El malabarista. |
#5
|
||||
|
||||
Hola, falta su END? si falta un END no deberia dar error de compilacion?
__________________
La juventud pasa, la inmadurez se supera, la ignorancia se cura con la educación, y la embriaguez con la sobriedad, pero la estupidez dura para siempre. Aristofanes. |
#6
|
||||
|
||||
Cita:
Recomiendo que no uses WITH |
#7
|
|||
|
|||
No entiendo al 100% tu problema pero te ayudaría usar una función más simple para generar números, te he creado una que te va a ahorrar usar 'IntToStr' en cada línea.
|
#8
|
||||
|
||||
De hecho, también le falta su begin al bloque for. Lo del with es lo de menos.
LineComment Saludos |
#9
|
||||
|
||||
hola roman, eso ya esta arreglado y sigue sin funcionar como deberia. Que la sintaxis no sea muy estetica tiene solución, pero el sacar 6 numeros del 1 al 49 en un for del 1 al 100 (por ejemplo) y que esos 6 numeros no se repitan es mas complicado que hacer la gran piramide! (esto ultimo es una prueba de que ya me tiene frustrado el dichoso programa).
Hola Reasen, pues basicamente lo que pretendo es eso de arriba, sacar 6 numeros aleatorios del 1 al 49 sin que se repitan y los vaya almacenando en un listview de 100 posiciones (o 50.000 estos valores son de ejemplo). Después de buscar y buscar informacion y gente con el mismo problema que yo en distintos foros, di con la web de trucomania y me ofrecia la posibilidad de usar una unidad que se encarga de todo pero como puedes ver, NO me funciona. Un saludo.
__________________
La juventud pasa, la inmadurez se supera, la ignorancia se cura con la educación, y la embriaguez con la sobriedad, pero la estupidez dura para siempre. Aristofanes. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
No repetir lineas | lbidi | SQL | 2 | 09-09-2014 02:19:54 |
Repetir una accion | lmpadron | C++ Builder | 5 | 29-07-2010 20:21:31 |
Repetir valor | altp | SQL | 7 | 27-06-2007 13:23:05 |
Es sano repetir? | Johnny Q | OOP | 4 | 12-07-2005 21:09:51 |
no repetir campos | ebeltete | SQL | 5 | 22-05-2003 04:32:53 |
|