numeros aleatoriios sin repetir

[danielmj]

Hola (de nuevo), este problema se que es muy recurrente, pero no he conseguido (después de mirar mucho por la red y el foro), la forma de hacer trabajar mi programa. Lo ultimo ha sido usar un truco de la web de trucomania, pero aunque no da error de compilación, no funciona para nada bien una vez se ejecuta el codigo.

El código que se debe ejecutar es este:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
  var
    i, num, numOk: longint;
    Ristra : TAlea;
    n      : integer;

begin
{50.000
100.000
1000.000
100.000.000
150.000.000}

    lista.clear;
    randomize;
    case comb.ItemIndex of
    0: begin
        lista.clear;
        for i:= 0 to 100 do
            with lista.Items.Add do
            begin
              //barra.Max:= 50000;
              barra.Position:= i;
              label3.Caption:= 'Combinaciones generadas: '+IntToStr(i);

    {Sacamos 6 numero sin repetir}
      Ristra:=TAlea.Create(6);
      for n:= 0 to 5 do begin
      memo1.Lines.Add( IntToStr(Ristra.PillaNumero) );
      with lista.Items.Add do
        subitems.Add(IntToStr(ristra.PillaNumero));
        subitems.Add(IntToStr(ristra.PillaNumero));
        subitems.Add(IntToStr(ristra.PillaNumero));
        subitems.Add(IntToStr(ristra.PillaNumero));
        subitems.Add(IntToStr(ristra.PillaNumero));
        subitems.Add(IntToStr(ristra.PillaNumero));
    end;

    Ristra.Free;
...

Como puede verse, en el case, al seleccionar el item 0 del combobox, las combinaciones (de 6 numeros) llegan a 100, es decir, la lista (listview) debe tener 100 filas de 6 numeros no repetidos. La unidad que uso para realizar esto está aquí.. http://www.trucomania.org/trucomania/ftesp.html

El problema es que en vez de rellenar la lista con esas 100 filas de numeros, solo hace un par (en el mejor de los casos).
¿Alguien sabe donde está el error?

Captura de la aplicacion corriendo (aunque en la captura el combo tenga 50.000, en el codigo a modo de pruebas tiene un valor de 100)
http://pasteall.org/pic/index.php?id=107843

Gracias.

[roman]

Pues así, a bote pronto, me parece que falta un begin inmediatamente abajo de

Código Delphi [-]
with lista.Items.Add do

LineComment Saludos

[danielmj]

voy a probar, saludos

Edito: Ese begin no hace nada roman, lo he probado y sigue haciendo cosas raras.

He grabado un pequeño video del problema, por si da mas pistas.
https://youtu.be/2JDBzoq2jPY

Un saludo y graacias.

[mamcx]

Y ademas falta su END. Pascal no es como python. La identacion es solo estetica.

Recomiendo que no uses WITH. Es uno de los keywords mas confusos del lenguajes y se debe evitar como la plaga.

[danielmj]

Hola, falta su END? si falta un END no deberia dar error de compilacion?

[Casimiro Notevi]

Empezado por mamcx

Y ademas falta su END. Pascal no es como python. La identacion es solo estetica.
Recomiendo que no uses WITH. Es uno de los keywords mas confusos del lenguajes y se debe evitar como la plaga.

Empezado por danielmj

Hola, falta su END? si falta un END no deberia dar error de compilacion?

Recomiendo que no uses WITH

[Reasen]

No entiendo al 100% tu problema pero te ayudaría usar una función más simple para generar números, te he creado una que te va a ahorrar usar 'IntToStr' en cada línea.

Código Delphi [-]
function NumerosAleatorios(Largo: integer): string;
var
  i: integer;
begin
  Randomize;
  for i := 0 to largo - 1 do
    result := result + IntToStr(Random(9));
end;

[roman]

De hecho, también le falta su begin al bloque for. Lo del with es lo de menos.

LineComment Saludos

[danielmj]

hola roman, eso ya esta arreglado y sigue sin funcionar como deberia. Que la sintaxis no sea muy estetica tiene solución, pero el sacar 6 numeros del 1 al 49 en un for del 1 al 100 (por ejemplo) y que esos 6 numeros no se repitan es mas complicado que hacer la gran piramide! (esto ultimo es una prueba de que ya me tiene frustrado el dichoso programa).

Hola Reasen, pues basicamente lo que pretendo es eso de arriba, sacar 6 numeros aleatorios del 1 al 49 sin que se repitan y los vaya almacenando en un listview de 100 posiciones (o 50.000 estos valores son de ejemplo). Después de buscar y buscar informacion y gente con el mismo problema que yo en distintos foros, di con la web de trucomania y me ofrecia la posibilidad de usar una unidad que se encarga de todo pero como puedes ver, NO me funciona.

Un saludo.