FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Orden de Salida
Hola estoy intentando hacer una aplicación que me de un orden de salidad de unos participantes, hice algo como lo que pongo a continuación.
procedure TForm1.Button1Click(Sender: TObject); begin randomize; edit1.Text := inttostr(random(StrToInt(Edit2.Text)) + 1 ); end; en un edit meto el número de participantes y dandole con un button, en el otro edit me va dando un número aleatorio que seria el numero de salida de cada participante, el problema es que me repite los números, bueno en relaidad lo que busco es una forma de hacerlo, que al darle a un button despues de metido el numero de participantes me salga pj en un memo el número de participante en un orden aliatorio pj del 1 al 5. 2 3 1 5 4 Bueno no se si me explique correctamente pero si alguien tiene algo con que orientarme o algun link donde mirar se lo agradeceria Gracias. saludos Kwan.
__________________
No llores por no ver el Sol que las lagrimas te impediran ver las Estrellas. Última edición por kwan fecha: 08-12-2003 a las 15:11:31. |
|
|
|