Interesante método de resolverlo seoane. Ha decir verdad, me resulta elegante.
Ahora bien... tu código dice:
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(Mezclar(Random(9999),i));
Primeramente llamas Entrelazar y luego Mezclar
Pero la idea es buena... y tal vez mis algoritmos GNA sean demasiados para lo que coletaun necesita. Sobre todo si previamente hay que modificar mi/s algoritmo/s para que "recuerde" y además hay que calcular un valor correcto de los parámetros para garantizar que la serie no se repita.
Cita:
Empezado por seoane
Lo único malo es que solo permite generar 99999 números distintos
|
Tal vez con el tiempo... si la cantidad de clientes aumenta (y asi parece ser... pues por algo necesita de números de 9 digitos) habría que modificar un poco tu codigo para que funcione.
Igulmente hay que ver que nos dice coletaun de esto...
Saludos,