Zufallszahl ziehen ohne wiederholung

[calculon]

Gute Antwort

Dann gib doch mal ein Beispiel wie mein Code statt einer TStringList mit TList aussähe. Habe noch nie damit gearbeitet. Du hast mich schon fast überzeugt

[Sunlight7]

Delphi-Quellcode:

rocedure Sproideldoing;
var
  Pottich: TList;
  i, z: integer;
begin
  Pottich := TList.Create;
  try
    for i := 1 to 40 do
      Pottich.Add(TObject(i));
    for i := 1 to 15 do
      begin
        z := random(Pottich.Count);
        ShowMessage(IntToStr(Integer(Pottich[z])));
        Pottich.Delete(z);
      end;
  finally
      Pottich.Free;
  end;
end;

Wenns mich net täuscht so, nur getippt, nicht propiert

[_frank_]

aus deinem code mal fix geändert (wie gesagt, viel anders ists nicht):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Pottich: TList;
  i, z: integer;
begin
  Pottich := Tlist.Create;
  try
    for i := 1 to 40 do
      Pottich.Add(TObject(i));
    for i := 1 to 15 do
      begin
        z := random(Pottich.Count);
        ShowMessage(IntToStr(Integer(Pottich[z])));
        Pottich.Delete(z);
      end;
  finally
      Pottich.Free;
  end;
end;

dein code war übrigends nicht ganz lauffähig... das IntToStr bei der showmessage war zuviel

Mist...da war jemand schneller...und das um die Zeit

Gute Nacht

[calculon]

Zitat von _frank_:

aus deinem code mal fix geändert (wie gesagt, viel anders ists nicht):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Pottich: TList;
  i, z: integer;
begin
  Pottich := Tlist.Create;
  try
    for i := 1 to 40 do
      Pottich.Add(TObject(i));
    for i := 1 to 15 do
      begin
        z := random(Pottich.Count);
        ShowMessage(IntToStr(Integer(Pottich[z])));
        Pottich.Delete(z);
      end;
  finally
      Pottich.Free;
  end;
end;

dein code war übrigends nicht ganz lauffähig... das IntToStr bei der showmessage war zuviel

Mist...da war jemand schneller...und das um die Zeit

Gute Nacht

Ist wirklich sinnvoller und genauso leicht. TList kannte ich davor jedoch nicht. Hast mich überzeugt

Gruß
--

[Sunlight7]

Das selbe Spielchen würde mit einer TStringList auch funktionieren, wenn man AddObject verwendest

[Blup]

Ein Variante von mir, schafft auf meinem Rechner 3 Millionen Ziehungen von 6 aus 49 pro Sekunde.

Delphi-Quellcode:

const
  CRLF = #13#10;

function Lottozahlen(Min, Max: Integer; Count: Word): TIntegerDynArray;
{---}
  procedure Swap(var Value1, Value2: Integer); inline;
  var
    Temp: Integer;
  begin
    Temp   := Value1;
    Value1 := Value2;
    Value2 := Temp;
  end;
{---}
var
  diff, i1, i2, r1, r2: Integer;
  SortArray: TIntegerDynArray;
begin
  diff := Max - Min + 1;
  if diff < Count then
    raise Exception.Create(Format('Ungültige Parameter' + CRLF +
                                  'Lottozahlen(%d, %d, %d)',
                                  [Min, Max, Count]));
  SetLength(Result,    Count);
  SetLength(SortArray, Count);
  for i1 := 0 to Count - 1 do
  begin
    r1 := Random(diff) + Min;
    r2 := r1;
    for i2 := 0 to i1 - 1 do
    begin
      if (r1 = r2) and (SortArray[i2] <= r2) then
      begin
        Inc(r1);
        Inc(r2);
      end
      else
        Swap(r2, SortArray[i2]);
    end;
    Result[i1]    := r1;
    SortArray[i1] := r2;
    Dec(diff);
  end;
end;

Wenn die Ergebnisse sortiert sein dürften, sähe das noch etwas einfacher aus.