Moin moin zusammen..
Bin gerade dabei mit Delphi 5 ein Lottoprogramm zu schreiben. Allerdings hänge ich momentan an der Vermeidung, dass eine Zahl zweimal gezogen wird.
Der Code sieht bisher so aus:
Delphi-Quellcode:
Randomize;
for h:=1 to 6 do
begin
x:=random(49)+1;
if x=zahlen[h] then
repeat x:=random(49)+1 until x<>zahlen[h];
zahlen[h]:=x;
StringGrid2.Cells[h-1,0]:=IntToStr(zahlen[h]);
end;
Irgendwie muss hier glaube nochmal eine Schleife rein, die überprüft, ob die zufallszahl einer zahl aus dem array entspricht. Leider habe ich keine Ahnung wie ich das machen soll.
Deswegen wäre es schön wenn sich ein Helfer finden würde. MfG
[edit=MrSpock]Code-Tags eingefügt. Mfg, MrSpock[/edit]