6 aus 49 will nicht so richtig

[Sar21]

gibt es eine frei zugängliche datenbank der gewinnzahlen aller lotterien? habe hier eine seite mit gewinnzahlen aller möglichen lotterien gefunden. kann ich damit arbeiten? gibt es dafür nicht schon hunderte von datenbanken? habt ihr da vllt nen tipp,? damit könnt ich mir die suche sparen mein projekt würde auch nur mit samstags lotto funktionieren, aber ich würde wirklich punkten, wenn ich gleich noch den vergleich lotto am mittwoch machen könnte..

[himitsu]

Nein (scheinbar nicht), die "Datenbanken", welche man überall findet, unterliegen gewissen Lizenzbedingungen und sind nicht wirklich frei zugänglich.

Du kannst du aber gerne an die deutsche Lottogesellschaft, bzw. an die deines Bundeslandes wenden und sie ganz lieb fragen.
Oder du wendest sich an einen der Anbieter, welche solche Datenbanken führen.

Oder kopier dir es per Hand raus, wobei du da aber erwähnen solltest, von wo diese Daten stammen, wenn du deine Liste veröffentlichs.
(Per Programm deren Webseiten zu parsen und es automatisch auszulesen sollte in den meisten Fällen gegen deren AGB verstoßen)

Die aktuellen Zahlen kannst du dir aber von vielen anbietern z.B. per Web-Interface oder per eMail zukommen lassen und sie maschinell parsen.

[funkuchn]

ja mit diesen Grundfunktionen komm ich auch klar
wir hatten jetzt noch was mit memo1.delete oder so, und dass muss i iwie reinbauen...

[DeddyH]

Zunächst einmal sollte man Randomize nur einmalig im Programm aufrufen (z.B. im OnCreate). Und ob die gezogene Zahl bereits im Memo vorhanden ist, bekommst Du mit Memo.Lines.IndexOf heraus (dazu muss die Zahl aber erst in einen String gewandelt werden). Bei weiteren Fragen einfach fragen.

[funkuchn]

wie genau baue ich das Memo.Lines.IndexOf ein? und wo?

[DeddyH]

Aus dem Kopf:

Delphi-Quellcode:

Memo.Lines.Clear;
for i := 1 to 6 do
  begin
    repeat
      Zahl := Random(49) + 1;
    until Memo.Lines.IndexOf(IntToStr(Zahl)) < 0;
    Memo.Lines.Add(IntToStr(Zahl));
  end;

[funkuchn]

und das vergleicht jetzt, ob in dem memo, wo die zahlen zufällig sind, ob da nun eine doppelt vorkommt
oder wie?
(Wenn ja, das Problem hatte ich doch schon gelöst )

[Wolfgang Mix]

@Opa Deddy
Bei meinem Vorgehen ist eine bereits gezogene Zahl im Lotto-Array mit 0 überschrieben.
Also brauchen keine weiteren Überprüfungen auf Doppelgänger erfolgen.
Es muß am am Ende nur da Lotto-Array auf Nullen überprüft werden.
Zusätzlich entfällt die lästige Sortiererei.

Gruß

Wolfgang

[DeddyH]

Mein Code sollte doch nur die Ziehung simulieren, da hab ich wohl etwas falsch verstanden. Sortiert wird da übrigens nix

[edit] Und die Inhalte zweier Memos kann man ja auch mit IndexOf vergleichen. Ist zwar nicht die schnellste Möglichkeit, sollte aber verständlich sein. [/edit]

[Wolfgang Mix]