Das große Lotto-Spiel - Bet and Win

[Namenloser]

Mal abgesehen von dem ini-file war ich mal so frei, deinen code etwas zu vereinfachen:

Delphi-Quellcode:

Procedure Zahlen_ermitteln(var Lottozahlen: TLottozahlen);
var i,j,zahl: integer;
    ok: boolean;
begin
  for i := 1 to 1 do        // for i := 1 to 6 do würde für mich mehr sinn machen o.ô
  begin
    ok := true;
    repeat
      zahl := random(49)+1;
      for j := 1 to i do
        ok := ok and (lottozahlen[j] <> zahl);
    until ok;
    Lottozahlen[i] := zahl;
  end;
end;

procedure Zahlen_ausgeben(Lottozahlen: TLottozahlen; Listbox: TListbox);
var i: integer;
begin
  for i := 1 to 1 do
    ListBox.Items.Add(IntToStr(Lottozahlen[i]));
end;

procedure TForm1.Button1Click(Sender: TObject);
Var Lottozahlen:TLottozahlen;
begin
  Zahlen_ermitteln(Lottozahlen);
  Zahlen_ausgeben(Lottozahlen, listbox1);
end;

procedure TForm1.Button2Click(Sender: TObject);
Var Lottozahlen:TLottozahlen;
begin
  Zahlen_ermitteln(Lottozahlen);
  Zahlen_ausgeben(Lottozahlen, listbox2);
end;

procedure TForm1.Button3Click(Sender: TObject);
Var Lottozahlen:TLottozahlen;
begin
  Zahlen_ermitteln(Lottozahlen);
  Zahlen_ausgeben(Lottozahlen, listbox3);
end;

procedure TForm1.Button4Click(Sender: TObject);
Var Lottozahlen:TLottozahlen;
begin
  Zahlen_ermitteln(Lottozahlen);
  Zahlen_ausgeben(Lottozahlen, listbox4);
end;

procedure TForm1.Button5Click(Sender: TObject);
Var Lottozahlen:TLottozahlen;
begin
  Zahlen_ermitteln(Lottozahlen);
  Zahlen_ausgeben(Lottozahlen, listbox5);
end;

procedure TForm1.Button6Click(Sender: TObject);
Var Lottozahlen:TLottozahlen;
begin
  Zahlen_ermitteln(Lottozahlen);
  Zahlen_ausgeben(Lottozahlen, listbox6);
end;

initialization
  randomize;

Mir ist abe rimmernoch nicht ganz klar, wozu du 6 listboxen brauchst, in die du eine zahl reinschreibst. Vllt. bin ich ja zu doof, aber ich kapier nicht, wie das gemeint ist (so viel zum thema benutzerfreundlich *g*)


edit: achja, das wichtigste hätt ich fast vergessen: es sollte keine zahl mehr doppelt vorkommen^^