Generar números sin repetidos ni consecutivos

[Casimiro Noteví]

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 Noteví]

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.

[[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