Forum: Programmieren allgemein
Delphi
by wurzelzwerg,
22. Sep 2011
Danke MrSpock, schau ich mir an.
Was hälst du davon?
procedure TForm1.Button1Click(Sender: TObject);
type
TSpiel = record
z1, z2, z3, z4, z5, z6: integer;
end;
var
i, k, l, m, n, o, p, max: integer;
Forum: Programmieren allgemein
Delphi
by wurzelzwerg,
22. Sep 2011
Schon klar was count liefert, aber warum nimmst du Zufallszahlen an der Stelle?
Dass J:= FList.Count-1 dort nicht funktioniert versteh ich nicht, müsste doch Zahlen von x..0 liefern.
Forum: Programmieren allgemein
Delphi
by wurzelzwerg,
22. Sep 2011
Ja, ok die Stelle zum setzen der Zahlen ist klar, danke.
Aber warum das J:= Random(FList.Count) in GetTipps?
Ich habe mal versucht immer den letzten Eintrag der Liste zu nehmen (J:= FList.Count-1),
das ergibt aber eine Endlosschleife.
Forum: Programmieren allgemein
Delphi
by wurzelzwerg,
21. Sep 2011
Vielen Dank schon mal.
@Bjoerg
Wies aussieht erzeugst du Zufallstipps.
Ich wollte z.B. System 007
Eingabe: 1, 2, 3, 4, 5, 6, 7
Ergebnis:
1,2,3,4,5,6
1,2,3,4,5,7
1,2,3,4,6,7
Forum: Programmieren allgemein
Delphi
by wurzelzwerg,
20. Sep 2011
Naja 6 aus 10 ist ja nicht das Problem, aber bei z.B. 10 Zahlen müssen 210 unterschiedliche Tippreihen rauskommen.
Bei 16 Zahlen wären es 8008 Tippreihen
Forum: Programmieren allgemein
Delphi
by wurzelzwerg,
20. Sep 2011
Moin.
weiss jemand wie man aus den Tipps der verschiedenen Systemspiele(Vollsystem, VEW) die Tippreihen berechnen kann?
Danke :-D