Lotto mit Delphi ... (hilfe)

[chrisw]

Hallo, hier ein Lösungsansatz:

Delphi-Quellcode:

var i,z : Integer;
begin
  with CheckListBox1 do
  for i := 0 to Count -1 do if Checked then //Schreibe in Array oder so;
  //hier könnte man auch erst zählen ob auch 6 Zahlen angekreuzt sind
  // Bsp .  
  z := 0;
  for i := 0 to Count -1 do if Checked then inc(z);
  if z < 6 then ShowMessage('Sie haben erst ' + IntToStr(z) + ' Zahlen angekreuzt'); 
  if z = 6 then //....
  if z > 6 then Showmessage('Sie haben zuviele Zahlen angekreuzt '); 

end;