Lotto II

[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;