funcion RANDOM ... funciona bien ?!!!!!

[[coso]]

Hola,
random te da numeros pseudoaleatorios (es imposible en un ordenador actual dar numeros aleatorios completos). Tienes que usar la funcion randomize antes de usar el random, la cual pone la 'semilla' de numeros en funcion de la hora del reloj. Un saludo.

[Casimiro Notevi]

Por favor, ingel, recuerda poner el código fuente entre etiquetas [code ] tu código [/code ] para que sea más cómodo leerlo.

Por cierto, en tu programa, al principio, pon la instrucción randomize.

Edito, ya te lo había informado coso.

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

CAsimiro ... te juro que cada vez que escribo codigo pienso en poner las etiquetas,, pero jamas las recuerdo , ... soy pariente de Dori .. la de buscando a Nemo .. pero prometo anotarmelo en el teclado ...
aca va una prueba de paso ... les muestro el ramdomize....
gracias !!

procedure TFDesigPeritos.FormShow(Sender: TObject);
begin
Randomize;
fVeces.setfocus;
end;

[Casimiro Notevi]

No hace falta que lo recuerdes, cuando estás escribiendo un mensaje tienes el icono justo arriba , selecciones tu código y pulsas en el icono '#', ese es el de code, tienes el de php, delphi, sql, etc...

Empezado por ingel

CAsimiro ... te juro que cada vez que escribo codigo pienso en poner las etiquetas,, pero jamas las recuerdo , ... soy pariente de Dori .. la de buscando a Nemo .. pero prometo anotarmelo en el teclado ...

[*Caro*]

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