Lotto mit Delphi ... (hilfe)

[erpel]

Zitat von Klaus01:

Warum machst Du es so kompliziert.
Lass den User doch 6 Zahlen eingeben und ferig ist es.

So mußt Du wenn eine checkbox angeklickt (auf checked) gesetzt wurde einen
Zähler erhöhen. Wenn die checkbox noch einmal angklickt wurde (not checked) den Zähler
wieder um eins erniedrigen.

Wie bekommst Du heraus welche Zahlen angeklickt wurden.
Sind die Checkboxen in einem Array definiert?

Zeige einmal was Du schon hast.

Grüße
Klaus

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls, CheckLst, Grids;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    CheckListBox1: TCheckListBox;
    Bziehn: TButton;
    Button2: TButton;
    Bneu: TButton;
    ausgabe: TStringGrid;
    auswertung: TEdit;
    Label2: TLabel;
    StringGrid1: TStringGrid;
    Label3: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure BziehnClick(Sender: TObject);
    procedure BneuClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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

procedure TForm1.BziehnClick(Sender: TObject);
begin


end;

procedure TForm1.BneuClick(Sender: TObject);
var 
 ausgabe.cells[0,0]:=' ';
ausgabe.cells[1,0]:=' ';
ausgabe.cells[2,0]:=' ';
ausgabe.cells[3,0]:=' ';
ausgabe.cells[4,0]:=' ';
ausgabe.cells[5,0]:=' ';
auswertung.Clear;
begin

end;


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

end;

end.

das hab ich schon ...Ps: die einfache Lösung die du gemeint hasz dürfen wir nicht machen weil sie zu einfach ist...

[edit=r_kerber]Delphi-Tags eingefügt. Das nächste mal bitte selbst setzen! Mfg, r_kerber[/edit]