Hallo Community,
Wir sollen einen Lottozahlengenerator in der Schule programmieren.
Nun habe ich durch langes rumstöbern was gefunden...
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
for i:= 1 to 49 do Zahlen[i]:=false;
for i:=1 to 6 do begin
repeat
z:=random(49)+1
until Zahlen[z] = false;
Zahlen[z]:=true;
end;
Edit1.Text:='';
for i:=1 to 49 do
if Zahlen[i] then memo1.Lines.add (Inttostr(i));
end;
Nur leider versteh ich so ziemlich gar nichts bei dem Code.
Kann mir den jemand verständlich erklären?
So alles bisschen ausseinanderpflücken und dann vlt so immer 2 Zeilen zusammenfassen in verständliches "Normalodeutsch" ?
Weitere Fragen:
Gibt es eine Möglichkeit, dass ich die Zahlen nicht alle auf einmal in dem Memo ausgebe? Sondern vor Jede Zahl noch eine Zeile oder so einfügen kann, sowas wie:
Zahl1: 23
Zahl2: 12
usw.
Geht das? Und wenn ja, wie?
mfg Siggy