Lotto II

[school- delphi]

Hallo,

brauche nochmal eure Hilfe. Ich habe ein Lotto- Programm, indem man Lottozahlen eingibt, dann Lottozahlen vom Computer erzeugen lässt und diese dann vergleichen lässt. Doch leider klappt das nicht, denn wenn z.B. zwei Richtige da sind, zeigt es nicht alle in einer separaten listbox an und auch nicht in der showmessage. Woran könnte das liegen?
Hier der Quellcode

Delphi-Quellcode:

var
Form1: TForm1;
lottozahl: set of 1..49;
getmenge: set of 1..49;
richtige: set of 1..49;
zahl:integer;

implementation

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;

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

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;z,rzahl:byte;
begin
lottozahl:=[];
for i:= 1 to 6 do
begin
repeat
rzahl:= random(49)+1;
until not (rzahl in lottozahl);
lottozahl:= lottozahl+[rzahl];
END;
{Listbox1.items.add(IntToStr(i)); }
for z:=1 to 49 do
if z in lottozahl then
Listbox1.Items.Add(inttostr (z));

end;

procedure TForm1.Button2Click(Sender: TObject);

var m,n: integer;
begin
m:= 0;
richtige:=[];
RICHTIGE:=lottozahl*getmenge;
For n:= 1 to 49 do
begin
if n in Richtige then
begin
listbox3.items.add(inttostr(n));
m:=m+1;
end;
end;
showmessage('Sie haben '+inttostr(m)+' Richtige');
end;

procedure TForm1.Button4Click(Sender: TObject);

begin
edit1.SetFocus;
getmenge:=[];
zahl:= strtoint(edit1.text);
getmenge:= getmenge + [zahl];
edit1.clear;

if zahl> 49 then showmessage ('Zahl über 49');
if zahl<50 then
listbox2.items.add(inttostr(zahl));
if listbox2.itemindex>6 then showmessage('Nur 6 Zahlen erlaubt');
end;


procedure TForm1.Button5Click(Sender: TObject);
begin
edit1.clear;
listbox1.Clear;
listbox2.clear;
listbox3.Clear;
end;

Vielleicht könnt ihr mir helfen. Vielen Dank schon mal im Voraus und einen schönen Abend, sowie baldige schöne Weihnachten.

Viele Grüße Lisa

[Birzenbae]

ich glaub da haste hier die falsche sparte dafür erwischt.

[xineohp]

moin,

wie folgt abändern:

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
begin
zahl:= strtoint(edit1.text);

If zahl <= 49 then
  If listbox2.Items.Count <= 6 then
  begin
    listbox2.items.add(inttostr(zahl));
    getmenge:= getmenge + [zahl];
  end
  else showmessage('Nur 6 Zahlen erlaubt')
else showmessage ('Zahl über 49');

edit1.clear;
end;


procedure TForm1.Button5Click(Sender: TObject);
begin
edit1.clear;
listbox1.Clear;
listbox2.clear;
listbox3.Clear;

getmenge:=[];
richtige:=[];
Lottozahl:=[];
end;