Das große Lotto-Spiel - Bet and Win

[Jay15688]

Oben im ersten Post ist der gesamte Quellcode.

Wir haben halt in der Schule gelernt, wie man in einer ListBox per Zufall irgendwelche Zahlen ausgibt. An diesem Beispiel hat er uns den array erklärt, falls ich das richtig in Erinnerung habe. Und nun ist mein Lehrer auf die glorreiche Idee gekommen uns eine Woche Zeit zu geben, in der wir jetzt basierend auf der Listbox und den Zufallszahlen ein Lottospiel programmieren sollen.

Vllt. verstehst du das ganze ja besser, wenn du dir den Quellcode ansiehst. Da ich Delphi-Neuling bin, weiß ich auch nicht genau, welche Alternative zur ListBox in diesem Fall sinnvoll wären!

P.S: Laden tue ich die Daten über einen OpenDialog:

Zitat:

procedure TForm1.Spielladen1Click(Sender: TObject);
begin
OpenDialog1.Title := 'Spiel laden';
OpenDialog1.FileName := '';
OpenDialog1.Filter := '.sav';
if OpenDialog1.Execute then
Listbox1.Items.LoadFromFile(OpenDialog1.FileName);
Listbox2.Items.LoadFromFile(OpenDialog1.FileName);
Listbox3.Items.LoadFromFile(OpenDialog1.FileName);
Listbox4.Items.LoadFromFile(OpenDialog1.FileName);
Listbox5.Items.LoadFromFile(OpenDialog1.FileName);
Listbox6.Items.LoadFromFile(OpenDialog1.FileName);
end;

MfG Jay