"Lottodurchgänge"

Trogdor · Hält's aus hier Beiträge: 5

Schönen Guten Tag,
Ich habe ein Problem bei Delphi...und bräuchte bitte Ihre Hilfe
Ich habe schon in anderen Themen zum Thema Lotto geschaut bin aber nicht fündig geworden.
Mein Problem ist folgendes. Ich habe per Delphi ein Programm zur Auswahl von Lottozahlen geschrieben.
Nun meint mein Lehrer jedoch das dies nicht genug ist und ich wollte einmal generell fragen ob es irgendwelche grafischen Möglichkeiten gibt
oder was mein Anliegen ist, wie man es schafft, dass der Computer z.b. 50 Lottokominationen oder 6er Pack Zahlen durchgeht und wie viele richtige Zahlen man besitzt.
Ich würde mich für jede Hilfe/Post/Antwort freuen.
MFG
Trogdor

jaenicke · Verfasst: Mo 20.03.06 11:06

Nun ja, das kommt ja ganz darauf an, wie du die Zahlen speicherst. Ich meine, grundsätzlich bietet sich da ja ein statisches Array an, und das muss man ja nur nach den korrekten Zahlen per for-Schleife durchsuchen.

Also so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

var
  i, j, richtige: Integer;
  numbers, lottozahlen: array[0..5] of Byte;
begin
  // Einlesen aus 12 Editfeldern
  for i := 1 to 6 do
    numbers[i - 1] := StrToInt(TEdit(FindComponent('Edit' + IntToStr(i))).Text);
  for i := 1 to 6 do
    lottozahlen[i - 1] := StrToInt(TEdit(FindComponent('Edit' + IntToStr(i + 6))).Text);

  // Prüfen
  richtige := 0;
  for i := 0 to 5 do
    for j := 0 to 5 do
      if numbers[i] = lottozahlen[j] then
        Inc(richtige);

  // Ausgeben
  ShowMessage(IntToStr(richtige) + ' Richtige');

Trogdor · Hält's aus hier Beiträge: 5

Vielen Dank für die Hilfe..
Ich hatte bis jetzt noch keine Zeit es auszuprobieren aber ich werde es in den nächsten Tagen in angriff nehmen
Vielen Dank nochmal
Trogdor

Trogdor · Hält's aus hier Beiträge: 5

Guten Tag,
Ich habe dies ausprobiert und es hat soweit auch geklappt nochma Danke.
Nur habe ich eine weitere Frage diesbezüglich.
Es werden ja aus 12 Editfeldern Zahlen benötigt. Nur ist es beim Lotto ja so, dass man nur 6 oder 6 + Zusatzzahl braucht. Ich habe selbst probiert dies "umzustellen" war aber nicht erfolgreich bei dem Versuch.
Bitte ein weiteres Mal um Hilfe
MFG
Trogdor

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme