Generar números sin repetidos ni consecutivos

		Foros Club Delphi > Principal > Varios
Generar números sin repetidos ni consecutivos

Herramientas

Buscar en Tema

Desplegado

09-05-2022

Neftali [Germán.Estévez] Neftali [Germán.Estévez] is online now

[becario]

Registrado: jul 2004

Ubicación: Barcelona - España

Posts: 19.437

Poder: 10

Neftali [Germán.Estévez] Es un diamante en bruto

Sólo como optimización (un poco rebuscada) si utilizas un TStringList, puedes conseguir los 24 números sólo en 24 pasadas (no más), si vas eliminando del TStringList los elementos ya generados y modificando el:

Código Delphi [-]Random(24)

por

Código Delphi [-]Randon(_posiciones_que_quedan_)

__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.

« Tema Anterior | Próximo Tema »

Normas de Publicación
no Puedes crear nuevos temas no Puedes responder a temas no Puedes adjuntar archivos no Puedes editar tus mensajes El código vB está habilitado Las caritas están habilitado Código [IMG] está habilitado Código HTML está deshabilitado

Saltar a Foro

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
Generar números de serie consecutivos para productos	ronalg	Varios	7	01-06-2016 22:45:46
Actualizar 500 campos con numeros consecutivos	Camilo	SQL	2	19-09-2007 21:06:07
no me actualiza numeros consecutivos	Camilo	SQL	3	03-09-2007 13:25:56
Numeros de Recibo Consecutivos	Camilo	Conexión con bases de datos	6	03-08-2007 09:46:01
Bloques De Numeros Consecutivos	dany2006	C++ Builder	5	15-11-2006 21:06:16

La franja horaria es GMT +2. Ahora son las 08:26:35.