@Martin K.
Vielen Dank! Es funktioniert einwandfrei! Du hattest in deinem Code hinten in jeder Zeile noch eine ")" vergessen, aber das war dann das kleinste Problem und sogar für einen Noob wie mich zu lösen! Besten Dank schonmal! Später muss ich ja noch mehr Dinge speichern. Zum Beispiel die abgegebenen Tipps der einzelnen Spieler. Sollte ich das genauso machen oder hast du da eine Idee? die Tipps werden über Edit-Felder abgegeben. Vielen Dank!
@NamenLozer: Ja wir hatten es ursprünglich nur in einer ListBox, wobei es mir so optisch viel besser gefällt und es auch übersichtlicher und benutzerfreundlicher ist!
Ich habe oben ja noch ein zweites Problem beschrieben. Sollte einer von euch dazu was sagen können, würde ich mich sehr freuen! Wie ich die abgegebenen Tipps in den Edit Feldern mit den Werten aus den Listboxen vergleichen kann! Wie im Lotto halt...
Was mir auch noch einfällt: Wie könnte ich hinkriegen, dass bei den sechs Listbox-Ziehungen keine Zahl doppelt gezogen werden kann? Anders wäre das etwas unreal
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
Var
Lottozahlen:TLottozahlen;
Procedure Zahlen_ermitteln(var Lottozahlen:TLottozahlen);
var i:integer;
begin
randomize;
for i:=1 to 1 do
Lottozahlen[i]:=random(49)+1;
end;
procedure Zahlen_ausgeben(Lottozahlen:TLottozahlen);
var i:integer;
begin
for i:=1 to 1 do
ListBox1.Items.Add(IntToStr(Lottozahlen[i]));
end;
begin
Zahlen_ermitteln(Lottozahlen);
Zahlen_ausgeben(Lottozahlen);
end;
procedure TForm1.Button2Click(Sender: TObject);
Var
Lottozahlen:TLottozahlen;
Procedure Zahlen_ermitteln(var Lottozahlen:TLottozahlen);
var i:integer;
begin
randomize;
for i:=1 to 1 do
Lottozahlen[i]:=random(49)+1;
end;
procedure Zahlen_ausgeben(Lottozahlen:TLottozahlen);
var i:integer;
begin
for i:=1 to 1 do
ListBox2.Items.Add(IntToStr(Lottozahlen[i]));
end;
begin
Zahlen_ermitteln(Lottozahlen);
Zahlen_ausgeben(Lottozahlen);
end;
procedure TForm1.Button3Click(Sender: TObject);
Var
Lottozahlen:TLottozahlen;
Procedure Zahlen_ermitteln(var Lottozahlen:TLottozahlen);
var i:integer;
begin
randomize;
for i:=1 to 1 do
Lottozahlen[i]:=random(49)+1;
end;
procedure Zahlen_ausgeben(Lottozahlen:TLottozahlen);
var i:integer;
begin
for i:=1 to 1 do
ListBox3.Items.Add(IntToStr(Lottozahlen[i]));
end;
begin
Zahlen_ermitteln(Lottozahlen);
Zahlen_ausgeben(Lottozahlen);
end;
procedure TForm1.Button4Click(Sender: TObject);
Var
Lottozahlen:TLottozahlen;
Procedure Zahlen_ermitteln(var Lottozahlen:TLottozahlen);
var i:integer;
begin
randomize;
for i:=1 to 1 do
Lottozahlen[i]:=random(49)+1;
end;
procedure Zahlen_ausgeben(Lottozahlen:TLottozahlen);
var i:integer;
begin
for i:=1 to 1 do
ListBox4.Items.Add(IntToStr(Lottozahlen[i]));
end;
begin
Zahlen_ermitteln(Lottozahlen);
Zahlen_ausgeben(Lottozahlen);
end;
procedure TForm1.Button5Click(Sender: TObject);
Var
Lottozahlen:TLottozahlen;
Procedure Zahlen_ermitteln(var Lottozahlen:TLottozahlen);
var i:integer;
begin
randomize;
for i:=1 to 1 do
Lottozahlen[i]:=random(49)+1;
end;
procedure Zahlen_ausgeben(Lottozahlen:TLottozahlen);
var i:integer;
begin
for i:=1 to 1 do
ListBox5.Items.Add(IntToStr(Lottozahlen[i]));
end;
begin
Zahlen_ermitteln(Lottozahlen);
Zahlen_ausgeben(Lottozahlen);
end;
procedure TForm1.Button6Click(Sender: TObject);
Var
Lottozahlen:TLottozahlen;
Procedure Zahlen_ermitteln(var Lottozahlen:TLottozahlen);
var i:integer;
begin
randomize;
for i:=1 to 1 do
Lottozahlen[i]:=random(49)+1;
end;
procedure Zahlen_ausgeben(Lottozahlen:TLottozahlen);
var i:integer;
begin
for i:=1 to 1 do
ListBox6.Items.Add(IntToStr(Lottozahlen[i]));
end;
begin
Zahlen_ermitteln(Lottozahlen);
Zahlen_ausgeben(Lottozahlen);
end;
Tut mir jetzt schon Leid, dass ich euch hier mit meine Unfähigkeit aufhalte, aber es geht hier um 15 Punkte in Info
