Lottozahlen

[leddl]

Zitat von bonanza:

Hi,
Hier mein bisheriges Programm. Aber irgendwie spuckt der da komische zahlen bei der häufigkeit aus.

Und was für komische Zahlen?

Zitat von bonanza:

Auch wäre es super, wenn jemand weiß, wie ich auch auf das 1. Item der listbox zugreifen kann.

Wo ist das Problem? Du greifst in deinem Code doch auf ein Item der ListBox zu (ListBox1.Items[zz]). Das ist das (zz+1)'te Element, da die Items der ListBox 0-basiert sind. Das erste Element hat daher den Index 0.

Zitat von bonanza:

Wäre euch sehr dankbar, wenn jemand mal gucken könnte, wo da der fehler ist.

Der Fehler ist genau das, was ich ein Quote weiter oben geschrieben habe. Die Items sind 0-basiert, dein Array 1-basiert. Du beschreibst also in der ListBox den falschen Index. (Siehe Zeile 34ff)

Delphi-Quellcode:

var
  Form1: TForm1;
  lottozahlen: Array[1..49] of Boolean;
implementation

{$R *.dfm}

procedure TForm1.OnCreate(Sender: TObject);
Begin
  randomize; //Randomize nur einmal im Programm aufrufen !!!
End;

procedure TForm1.Button1Click(Sender: TObject);
var i, k, zz: Integer;
    gesetzt : Boolean;
begin
  ListBox1.Items.Clear;
  for i := 1 to 49 do
    ListBox1.Items.Add('0'); //Warum hier erst IntToStr aufrufen?
                             //Geht doch auch direkt
  for k := 1 to 10000 do
  begin
    for i := 1 to 49 do
      lottozahlen[i] := false;
    for i := 1 to 6 do
    begin
      //Ist meiner Meinung nach sinnvoller mit nem Boolean
      gesetzt := false; 
      repeat
        zz:= random(48)+1;
        if (not lottozahlen[zz]) then 
        begin
          lottozahlen[zz] := true;
          //ListBox1.Items ist 0-basiert, dein Array 1-basiert, daher mußt
          //du den Index anpassen
          ListBox1.Items[zz-1]:= inttostr(strtoint(ListBox1.Items[zz-1])+1);
          gesetzt := true;
        end;
      until gesetzt
    end; // von (i=>6)
   end; // von (k=>10000)
end;

end.

Ich konnte jetzt aber sonst auf die Schnelle und ohne es zu testen keinen Fehler feststellen. Vielleicht is mir aber auch einfach was durchgerutscht. Schreib doch einfach mal - falls das hier nichts geholfen hat - was genau so seltsam an der Verteilung ist.

//Edit:
Code- in Delphi-Tags gesetzt, wozu ham wir die denn?