Bueno, ahí va una de mis ideas de bombero
El siguiente método nos sirve para generar números aleatorios, pero que no se repiten. Lo único malo es que solo permite generar 99999 números distintos. Lo bueno en cambio es que solo tenemos que guardar un valor de una vez a otra para asegurarnos de que no se repite ningún numero, en vez de guardar una lista completa de los que ya salieron.
El método es simple, generamos un numero aleatorio de de cuatro cifras y entrelazamos sus dígitos con los dígitos de otro numero consecutivo de 5 cifras. De esta forma el numero sigue siendo aleatorio, pero el numero consecutivo nos asegura que nunca se va a repetir.
Es decir:
Código Delphi
[-]
function Entrelazar(i,j: integer): string;
begin
Result:= '';
while (i > 0) or (j > 0) do
begin
Result:= Format('%d%d',[i mod 10, j mod 10]) + Result;
i:= i div 10;
j:= j div 10;
end;
while Length(Result) < 9 do
Result:= '0' + Result;
Result:= Copy(Result,1,9);
end;
i:= i + 1;
ShowMessage(Entrelazar(Random(9999),i));
El valor que tenemos que guardar de una vez a otra, lo podemos guardar en un archivo, en el registro de windows, en una base de datos, etc ...