6 aus 49 will nicht so richtig

[DeddyH]

Aus dem Kopf:

Delphi-Quellcode:

Memo.Lines.Clear;
for i := 1 to 6 do
  begin
    repeat
      Zahl := Random(49) + 1;
    until Memo.Lines.IndexOf(IntToStr(Zahl)) < 0;
    Memo.Lines.Add(IntToStr(Zahl));
  end;