Brauche Hilfe in Delphi

[kompi19]

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:

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

 

[theHacker]

Du prüft atm nur, ob die letzte Zahl doppelt ist. Was du brauchst, ist, dass du alle Zahlen bis hier her nochmal prüfst.

Nutze eine Variable, um dir den Zustand zu merken.
Pseudocode:

schon_drin = false
für alle i, die im Array schon belegt sind
  wenn zahlen[i] == x dann
    schon_drin = true
    (raus aus schleife) - musst du nicht, spart aber Zeit
/für

wenn schon_drin == true dann
  nochmal ziehen