Kleines Rechenproblem

[hhb_man]

Hi Cracks!

Ich habe Folgendes vor:

Ich habe 2 Checkboxen, die inaktiv sind und ein Edit-Feld, in dem eine "Null steht".
Sobald eine Checkbox durch klicken aktiv wird, soll das Edit-Feld plus 1 zählen.

Schaut euch am Besten mal den Anhang an, denn Bilder sagen mehr als 1000 Worte.

Danke
Chris

[Matze]

Ich blick's noch nicht ganz, aber evtl meinst du's so: Ins CeckBoxOnClick:

Edit1.Text := IntToStr(StrToInt(Edit1.Text + 1));
oder falls im Edit einfach nur die Lektion stehen soll:

if CheckBox1.Checked then Edit1.Text := '...' ...

[SirThornberry]

ich würde den einzelnen Checkboxen das gleiche OnClick zuweisen und darin einfach zählen wieviel checkboxen aktiviert sind

Delphi-Quellcode:

procedure TForm1.CheckBox1Click(Sender: TObject);
var LKurse: Integer;
begin
  LKurse := 0;
  if Checkbox1.Checked then inc(LKurse);
  if Checkbox2.Checked then inc(LKurse);
  Edit1.Text := inttostr(LKurse);
end;

[dizzy]

Oder per Cast:

  anzKurse := Integer(CheckBox1.Checked) + Integer(CheckBox2.Checked);

[hhb_man]

Mit dem ersten tipp lagst du schon ganz richtig. Ich will, dass das Edit-Feld mit jeder aktivierten Checkbox +1 zählt.
Also werde ich einfach in die Checkbox schreiben:

begin
if CheckBox1.Checked := True then
Edit1.Text := IntToStr(StrToInt(Edit1.Text + 1));
end;



richtig?

[SirThornberry]

ist True denn zwangsläufig 1? Ich dachte immer True ist alles ungleich 0

[Matze]

Zitat von hhb_man:

begin
if CheckBox1.Checked := True then
Edit1.Text := IntToStr(StrToInt(Edit1.Text + 1));
end;

Wenn, dann so:

Delphi-Quellcode:

begin
if CheckBox1.Checked then
  Edit1.Text := IntToStr(StrToInt(Edit1.Text + 1));
end;

[hhb_man]

Bin mir nicht sicher, aber wir sind wohl auf dem richtigen Weg. Ich versuchs nachher mal.

Danke Leute. Ihr seit echt nützlich!

[SirThornberry]

Zitat von Matze:

Zitat von hhb_man:

begin
if CheckBox1.Checked := True then
Edit1.Text := IntToStr(StrToInt(Edit1.Text + 1));
end;

Wenn, dann so:

Delphi-Quellcode:

begin
if CheckBox1.Checked then
  Edit1.Text := IntToStr(StrToInt(Edit1.Text + 1));
end;

wenn dann so

Delphi-Quellcode:

if CheckBox1.Checked then
  Edit1.Text := IntToStr(StrToInt(Edit1.Text) + 1);

Diese variante hat allerdings den Nachteil das vorrausgesetzt wird das im Edit kein Text drin steht. Und wenn ich eine Checkbox mehrmals anklicke erhöht sich der wert auch immer weiter.

[Stevie]

Wenn du eine Liste machen willst, wo verschiedene Kurse angewählt werden können, dann würd ich dir die CheckListBox empfehlen...