Hola, tengo un código para generar números formados por dos dígitos, (añado cero en los menore de nueve). Funciona bien con números pequeños pero falla en números más altos.
Los números generados deben ser no consecutivos y no estar repetidos. A ver si podéis echarme una mano. Saludos
Código Delphi
[-]
procedure TForm1.Button5Click(Sender: TObject);
Var
I : Integer; S : String;
begin
S:='';
Randomize;
Repeat
I := Random(24) + 1 ;
if I <=9 then T:= Format('%.*d', [2, I] ) else
T:= IntToStr(I);
if POS( T, S ) = 0 then INSERT( T, S, Length(S) + 1) ;
Until Length(S) = 48 ;
Edit1.Text := S ;
end;