FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Veo que en lazarus los HELPER son un poco distintos a DELPHI,
prueba de la siguiente forma:
|
#2
|
||||
|
||||
Hola bucanero, estoy mirando tu codigo y hay un par de cosas que no consigo "llevar" a mis intereses, es decir, que no consigo implementarlo.
Cita:
Tu codigo hace 2 cosas, primero genera una serie de aleatorios y luego lo compara con una combinacion dada, pero lo que intento es por ejemplo generar x numero de combinaciones repetidas y metidas en un listview, de ella extraigo los numeros mas repetidos y sobre esa unica combinacion, hago las comparaciones. Pero no puedo por que en el momento en que "combinaicon.load es distitno, el programa se detiene.
__________________
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
|
|||
|
|||
Hola Danielmj
El error te lo da por la pre-condición establecida donde estas debe tener siempre 5 elementos a la hora de leerla, puedes quitar esa condición, o añadirle otras que tu consideres.
Cita:
Un saludo |
#4
|
||||
|
||||
Hola bucanero, gracias por tu tiempo. Mirando tu codigo y poniendolo en practica veo un resultado inesperado. Lo que hago es lo siguiente, en un edit he volcado el valor de 6 labels.caption con valores entereos y aleatorios del 1 al 49 con lo que se forma un longint en el edit.text Esta será la combinacion maestra a comparar, pero lo que veo que hace es que en todas y cada una de las 5000 combinaciones se repite el mismo numero y simpre siempre, se da un unico acierto.
Y el codigo modificado sería este:
https://drive.google.com/open?id=1NG...XSeWz8qTKfoZL4
__________________
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. |
#5
|
|||
|
|||
La combinación maestra solo te esta cogiendo el numero 48.
Eso es porque el edit1 al convertirlo a un numero entero y pasarlo como un array of byte que es el parámetro esperado de la función load, y me extraña que no este dando ningún error de tipos, en realidad lo que esta haciendo es cortando y tomando solamente los 8 primeros bits del numero, omitiendo el resto. De hay que solo tome el valor 48. Cita:
* añade una nueva función LOAD junto a la que ya tienes definida, utilizando la directiva overload, de la siguiente forma:
y ahora ya puedes leer el numero de tu edit1 de esta forma (sin los corchetes), el compilador determinara que rutina LOAD utilizar en función de los parámetros que le suministres:
y en particular para el valor que tienes en la imagen (34324051248), yo obtengo la siguiente combinación: Código:
4 5 8 10 12 13 14 16 17 18 19 20 22 23 24 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 |
#6
|
|||
|
|||
Viendo tu vídeo, veo que lo que tienes en el edit1 son los mismos números que se ven en los label a la izquierda del edit1, dando la sensación que lo que estas haciendo es concatenando los valores de los labels, y guardándolos en el EDIT1. Eso no te va a dar la misma combinación que tienes en los labels cuando hagas el load del edit1.
Si pretendes obtener la misma combinación que muestras en los labels, entonces deberías hacer algo así:
|
#7
|
||||
|
||||
Hola bucanero, gracias ya va corriendo perfectamente, pero sigo con la misma idea ya sabes.. R que R... y es que no quisiera abandonar la idea de al menos usar un listview que muestre x numero de combinaciones aleatorias, pongamos por ejemplo 20.000 y de entre ellas, busca los 6 numeros que mas se repiten formando de este modo una combinación en si misma. Esa combinacion con los 6 numeros que mas salen, SI podría usarlo como combinación clave en tu codigo y a partir de ahí hacer el resto. Pero ahora mismo no lo tengo y es algo que siento que me falta. Ya tengo que irme a trabajar, mañana sigo. 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 |
sumando valores de un listview | danielmj | Varios | 28 | 14-11-2014 21:52:30 |
VALORES FANTASMAS FIREBIRD 2.1 valores Grandes | ASAPLTDA | Firebird e Interbase | 17 | 02-12-2012 12:09:02 |
Rellenar con 0.... | buitrago | Varios | 6 | 17-11-2011 20:02:53 |
¿Cómo insertar una imágen en un lisbox o un memo? | Acuarius3000 | Gráficos | 3 | 27-06-2005 08:44:53 |
arastrar archivos a un lisbox | gulder | C++ Builder | 3 | 05-05-2005 13:31:50 |
|