Generar números sin repetidos ni consecutivos

[bulc]

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


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 // Esta línea hace que se atasque el programa. Si se anula, el resto funciona.
INSERT( T, S, Length(S) + 1) ;
Until Length(S) = 48 ;
Edit1.Text := S ;
end;

[Casimiro Notevi]

O sea, parece que quieres generar 48 números (sin repetir) del 1 al 99, ¿es eso?

Edito: No, no es eso, pues tienes puesto random(24) y en el bucle length 48

Explica qué quieres, porque no se entiende.

[bulc]

Es que los números son alfanuméricos o dígitos, osea Strings. Y deben ocupar dos caracteres cada uno. Por tanto de 1 a 9 hay que ponerles un cero de prefijo.
Y como son 24 números o pares, ocupan 48 caracteres. Deben estar entre el 1 y el 24.
De todos modos he conseguido solucionarlo usando un TStringList y su propiedad IndexOf .
El objeto final es crear un conjunto de 24 números no consecuivos y sin repetir ninguno pero del 1 al 24 sólamente.
Mira que me ha costado, ¿eh?. Tengo un string de 24 números al final. Ahora tengo que usarlos de dos en dos para convertirlos en Integer.
Bueno, saludos y gracias.

[Casimiro Notevi]

O sea, del 1 al 24, desordenados.

[bulc]

Intento hacerlo con un Array pero no lo consigo. Usando un TStringList sí que lo hago uso IndexOf para comprobar que el número X no está.

[Neftali [Germán.Estévez]]

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:
Random(24)
por
Randon(_posiciones_que_quedan_)

[bulc]

Var
SL: TStringList; I, IAzar, IDigits: Integer; S : String;
Arr : Array[0..23] of Integer; // Much exact start 0..N Array
begin
IDigits := 24; Memo1.Clear ; // El TMemo muestra el resultado del TStringList
TRY
SL:= TStringList.Create;
while SL.Count <= IDigits - 1 do
begin
IAzar:= Random( IDigits) + 1 ;
if SL.IndexOf( (IntToStr(IAzar))) = - 1 then
begin
SL.Add( IntToStr(IAzar ) ) ; // El A_Int sirve de Índice.
Memo1.Lines.Add(IntToStr(IAzar ) ) ;
end;
end;
for I := 0 to Length(Arr) -1 do
begin
Arr[I] := StrToInt(Memo1.Lines[I]) ; // Paso del TMemo al Array. Igual sería del TStringList.
end;
//ShowMessage( IntToStr(Arr[Low(Arr)] ) +' ' + IntToStr( Arr[High(Arr)-1] ) );
ShowMessage('Extremos del Array : ' + IntToStr(Arr[Low(Arr)] ) +' ' + IntToStr( Arr[High(Arr)] ) );
for I := 0 to Length(Arr) -1 do
begin
S := S +' '+ IntToStr( Arr[I] ) ;
end;
Edit1.Text := S; // Muestra el contenido del Array of Integer
FINALLY
SL.Free;
END;
procedure TForm1.Button1Click(Sender: TObject);
Cuando alguien encuentre un camino más fácil se agradecerá saberlo. El mió es más bien alambicado. Saludos

[Casimiro Notevi]

Para hacerlo gráficamente, pon un listbox con los valores 01, 02, 03 ... 23, 24 y otro listbox vacío.
Un botón y listo:

procedure TForm1.Button1Click(Sender :TObject);
var
iItems, iValor :integer;
begin
Randomize;
iItems := lbSource.Items.Count;
while iItems>0 do
begin
iValor := Random(iItems);
lbTarget.Items.Add( lbSource.Items[iValor] );
lbSource.Items.Delete(iValor);
iItems := lbSource.Items.Count;
end;
end;

[bulc]

Para proceder con un Delete es mejor usar el DownTo ya que puede afectar a las posiciones de los índices. Algo que aprendí dándome de bruces con algún caso. Por lo demás muy sencillo y bien.
Gracias y saludos.

[bulc]

Funciona correctamente, pero a veces deja Items en blanco. Por eso he añadido ésto al final.
for I := 0 to LBoxTArget.Count - 1 do
if LBoxTarget.Items[I] ='' then
LBoxTarget.Items.Delete(I) ;

Saludos;
bulc

[bulc]

No hace al caso. Bórralo.

[Casimiro Notevi]

A mí me funciona bien, aunque no he comprobado si son continuos o no.

[movorack]

Hola bulc, que bien que ya lo hayas solucionado.

Te comparto otra posible solución. La idea es interactuar con el memo lo menos posible para que sea mas eficiente.


procedure TForm1.Button1Click(Sender: TObject);
function getListaDesordenada(const Max: Integer): TArray< string >;
var
i: Integer;
lList: TList < Integer >;
begin
Result := [];

lList:= TList < Integer >.Create;
try
for i := 1 to Max do
lList.Add(i);

for i := lList.Count-1 downto 0 do
lList.Exchange(i, Random(i+1));

for i := 0 to lList.Count - 1 do
Result := Result + [Format('%.2d', [lList[i]])];
finally
lList.Free;
end;
end;

var
lMax: Integer;
begin
if (not TryStrToInt(edtMax.Text, lMax))
or (lMax = 0)
then
Exit;

Memo1.Lines.Clear;
Memo1.Lines.AddStrings(getListaDesordenada(lMax));
end;

[bulc]

Definitivamente me quedo con el TStringList y un Array dinámico. Le echaré un vistazo más adelante y lo probaré. Nunca había usado un List.
Saludos.
bulc