Cita:
Empezado por ingel
Graicas a ambos por su respuesta ... les cuento que ya tenia puesto el Randomize en el FormShow del Form... salvo que haya que ponerlo en otro lugar o de otra forma ...
|
Hola ingel, debería funcionarte aún poniendolo en el OnShow, prueba poniendolo todo junto y para evitar el While puedes sumarle 1, así siempre te dara un valor mayor a 0.
Código Delphi
[-]
Randomize;
i1:= Random(length(vec)+1)+1;
Saluditos