1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

//schreibt eine Ziehung in eine Listbox
procedure TForm1.Button1Click(Sender: TObject);
var  Zahlen : array[0..4] of integer;
     Gezogene, AnzahlGezogene : integer;
     i, j : integer;
     Doppelte : boolean;
     s : string;
begin
     //feld löschen
     fillchar(Zahlen,sizeof(Zahlen),0);
     AnzahlGezogene:=0;
     repeat
       //Zahl ziehen
       Gezogene := random(35)+1;
       Zahlen[AnzahlGezogene]:= Gezogene;
       //Test ob Zahl schon gezogen
       Doppelte:=false;
       if AnzahlGezogene>0
       then
       begin
          for j:=0 to Anzahlgezogene-1 do
            if Zahlen[j] = Gezogene then Doppelte:=true;
       end;
       //wenn nicht gezogen, dann nächste Zahl
       if not Doppelte then inc(AnzahlGezogene);
     until AnzahlGezogene=5;

     //Ausgabestring vorbereiten
     s:='';
     for i:=0 to 4 do s:=s+inttostr(Zahlen[i])+#9;
     listbox1.items.add(s);
end;