Lotto HILFE´!!!

[fiasko]

Hallo,

Zitat:

Zitat von school- delphi

also wenn man das so versucht- klappts leider nicht--- unendlich viele zahlen in der listbox erscheinen dann.

Das glaub ich dir nicht :-) Der Rechner hat nur endlichen Speicher :mrgreen:

Ich meinte das eher so:

Delphi-Quellcode:

begin
  for i:= 1 to 6 do
  begin
    // Solange Zahlen testen bis wir ein neue noch nicht in der Listbox stehende in Y haben
    repeat
      Y:= random(49)+1;
    until ListBox1.Items.IndexOf(IntToStr(y))=-1;

    ListBox1.Items.Add(inttostr(y));
  end;
end;

[edit]
Verdammt, wieder Bummelletzter :wall:
[/edit]

[school- delphi]

Hallo,

vielen Dank erstmal. Leider hat die Version nicht geklappt. Und mein grö0tes Problem ist dass es genau um die menge geht (Hauptbestandteil der Arbeit)
Und die Lottozahlen müssen unabdingbar auch diese arbeitsweisen mit mengen besitzen.

danke aber
grüße
lisa

[alcaeus]

Hi Lisa,

in dem Fall solltest du dir mal die Hilfe zu Mengen ansehn. Ein Beispiel mit mengen:

Delphi-Quellcode:

var Menge: set of Byte;
    i: Integer;
begin
  Menge := []; //Menge initialisieren
  Randomize; //Zufallsgenerator initialisieren
  for i := 1 to 6 do
    repeat
      y := Random(49)+1; //Zahl generieren
    until y not in Menge; //Ueberpruefen ob Zahl schon in Menge
    Menge := Menge + [y]; //Zahl zu Menge hinzufuegen
    ListBox1.Items.Add(IntToStr(y)); //Zahl zu Listbox hinzufuegen
  end;
end;

Wichtig: Ich hab den Code nicht getestet, er sollte aber funktionieren.

Greetz
alcaeus

[school- delphi]

DANKE

also jetzt klappt das mit dem überprüfen anhand dem index.
Nur ich muss leider mit den mengen arbeiten.
Leider weiß ich überhaupt nichts mit dem until not anzufangen, obwohl das der Lehrer ausdrücklich betont hat. :cry:

Aber vielen vielen dank
Lisa

[Treffnix]

:gruebel:

Das letzte Beispiel von alcaeus arbeitet doch mit Mengen und repeat. Im Grunde ist das schon deine Lösung.

[Orbmu2k]

Code von alcaeus berichtigt ...

Delphi-Quellcode:

var
  Menge: set of Byte;
  i,y: Integer;
begin
  Menge := []; //Menge initialisieren
  Randomize; //Zufallsgenerator initialisieren
  for i := 1 to 6 do
  begin
    repeat
      y := Random(49)+1; //Zahl generieren
    until not (y in Menge); //Ueberpruefen ob Zahl schon in Menge
    Menge := Menge + [y]; //Zahl zu Menge hinzufuegen
    ListBox1.Items.Add(IntToStr(y)); //Zahl zu Listbox hinzufuegen
  end;
end;

[school- delphi]

Hallo
die Lösung von alcaeus ist total super und verständlich. Erstmal herzlichen Dank - nur in der Zeile mit dem until not tauchen folgende Fehler auf:

[Fehler] Unit1.pas(41): Operator oder Semikolon fehlt
[Fehler] Unit1.pas(41): Operator ist auf diesen Operandentyp nicht anwendbar

Ich glaube ich schicke nochmal den ganzen quellcode- wie geht das mit dem delpgi tags

vielen dank liebe delphi- Könner
Lisa

[bigg]

Ich weis nicht, aber man hätte ja auch suchen können.
http://www.delphipraxis.net/search.p...69127&start=0&

[Treffnix]

@ Bigg: "Keine Beiträge entsprechen Deinen Kriterien."

@ school - delphi: beim Beitrag erstellen oben den Button "Delphi-Code" drücken, Quelltext einfügen und nochmal den gleichen Button drücken

[school- delphi]

Hallo

es klappt jetzt--- ihr seid echt super
vielen herzlichen dank

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

 var
  Menge: set of Byte;
  i,y: Integer;
begin
  Menge := []; //Menge initialisieren
  Randomize; //Zufallsgenerator initialisieren 
  for i := 1 to 6 do
  begin 
    repeat
      y := Random(49)+1; //Zahl generieren 
    until not (y in Menge); //Ueberpruefen ob Zahl schon in Menge
    Menge := Menge + [y]; //Zahl zu Menge hinzufuegen
    ListBox1.Items.Add(IntToStr(y)); //Zahl zu Listbox hinzufuegen
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
end;