Hallo Leutz,
und zwar muss ich für die Schule als Hausaufgabe in Info mein eigenes LottoSpiel programmieren...
Ich habe noch nicht allzu lange Info und bin daher noch ziemlich neu in der Materie...wundert euch daher nicht, wenn ich alles noch bissl umständlicher mache, als es vllt. sein müsste, aber bisher klappt alles ganz gut!
Zu meinem Problem:
Ich habe jetzt 6 Listboxen erstellt und in jeder Listbox findet eine der sechs Ziehung für die Lottozahlen statt. Das Spiel soll am Ende für 4 Spieler sein, sodass im unteren Bereich jeder Spieler 6 EditFelder hat, wo er seine Tipps abgeben kann, die dann mit den Listbox-Ziehungen oben verglichen werden müssen. Ich wollte jetzt für jeden Spieler noch einen "Auswerten" Button erstellen, wo das Ergebnis dann getestet wird, aber ich habe wie gesagt absolut keine Ahnung, wie man die Ziehungen mit den abgegebenen Tipps vergleichen kann!
Mein zweites Problem besteht darin, dass ich nicht weiß, wie ich eine Speichern/Laden Funktion hinkriege. Ich habe es mit einem einfach SaveDialog bzw. OpenDialog versucht, aber er speichert dann irgendwie immer nur die Zahl von der sechsten und letzten Ziehung ab und mein laden, füllt er alle Listboxen mit der selben (der sechsten) Zahl. Es muss natürlich später dann auch noch möglich sein, dass in diesem File, die aktuellen Geldbeträge der Spieler usw gespeichert werden.
Zitat:
procedure TForm1.Spielspeichern1Click(Sender: TObject);
begin
SaveDialog1.Title := 'Spiel speichern unter: ';
SaveDialog1.FileName := 'Savegame.sav';
SaveDialog1.Filter := '.sav';
if SaveDialog1.Execute then
Listbox1.Items.SaveToFile(SaveDialog1.FileName);
Listbox2.Items.SaveToFile(SaveDialog1.FileName);
Listbox3.Items.SaveToFile(SaveDialog1.FileName);
Listbox4.Items.SaveToFile(SaveDialog1.FileName);
Listbox5.Items.SaveToFile(SaveDialog1.FileName);
Listbox6.Items.SaveToFile(SaveDialog1.FileName);
end;
Wäre um jede Hilfe dankbar! Ich bitte euch, dass ihr mir das so genau wie möglich und am allerbesten mit Beispiel Code etc. erklärt, da ich wirklich noch recht neu bin.
Mir macht Info aber einen riesen Spaß und außerdem hat unser Lehrer gesagt, dass alle die es schaffen 15 Punkte (also eine 1+) aufgeschrieben bekommen!
Freue mich über jegliche Antworten!
Im Anhang befindet sich der aktuelle Stand des Programms! Ihr könnt mir natürlich auch Anhand dessen etwas erklären oder selber schon schreiben!
Vielen Dank schonmal für alles!
MfG Jay