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

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        // 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:

Código Delphi [-]
Random(24)

por

Código Delphi [-]
Randon(_posiciones_que_quedan_)

[bulc]

Código Delphi [-]
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:

Código Delphi [-]
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.

Código Delphi [-]
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