Lotto

[MrKnogge]

Die bei denen sie Fragezeichen dazu gemacht hat.

Delphi-Quellcode:

procedure TForm1.ziehenClick(Sender: TObject); 
var
  i, j, Zahl: integer; 
  gezogen: boolean; 
  lotto: array[1..6] of Integer ; 
begin 
  for i:=1 to 6 do begin 
    listbox1.Clear; 
    repeat
      gezogen := false; // anfangs setzen wir gezogen auf false; 
      zahl := random(49) + 1; 
      for j := 1 to i-1 do 
      if lotto[j] = Zahl then gezogen := true; // sollte die zahl allerdings schonmal gezogen worden sein, so setzen wir gezogen auf true
    until gezogen = false; // da beim Lotto jede Zahl nur einmal gezogen werden kann, ziehen wir solange eine Zahl, bis wir eine haben die noch nicht gezogen wurde 
    lotto[i] := Zahl; 
  end; // dieses end gehört zum beginn der for schleife
  for i:=1 to 6 do 
    listbox1.items.add(inttostr(lotto[i])); 
end; 

end.

gruss